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LA REVUE DES UTILISATEURS DU PCW 8256/8512/9512 
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c'est un logiciel LOGI'STICK distribué par D.D.I. 
en vente chez votre revendeur spécialiste PCW 
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IMANDEZ PAR TELEP 


TOUS LES PRODUITS DE L'ECHO DU PCW 
_= PLUS RAPIDE AVEC LA CARTE VISA/CARTE BLEU 









24 HEURES 1!!! 


OO OS OS OU D D ON DU D DU DU DU DU NO Ou un nu un mu mu D 


“POUR VOS COMMANDES TELEPHONIQUES , 1 SEUL NUMERO : 


(1). 48 65 44 55 





Q 551001 
Q 551002 
Q 551003 
Q 551101 
Q 551102 
Q 551103 








Q 5102362 
Q *5102141 
Q 5102801 
Q 5102917 
Q 5103185 
Q “5103544 
Q 5103949 
Q 5102452 
Q 5102337 
Q 5102608 
Q *5102436 
Q 5103564 
Q *5150046 
Q 5103423 
Q “5102361 
Q 5102334 
Q 5102335 
À 5103595 
Q *5102496 
Q 5102918 


Q *5104003 
Q 5103620 
Q 5102639 
Q 5102875 
Q 5103950 
Q 5103699 
Q 5150001 
Q 5150002 
Q 5150003 





D 


* précisez le modèle (8256-8512 ou 9512) 


NOUVEAU !!! A partir de 10.000 F d 


Prix Promotion maintenus jusqu'au 31 Août 1988 







AMSTRAD PCW 8256 1 lecteur 
AMSTRAD PCW 8512 2 lecteurs 
AMSTRAD PCW 9512 

FD-2 - 2ème Lecteur pour PCW 8256 
FD-4 - 2ème Lecteur pour PCW 9512 
Lecteur 5"1/4 PACE (2ème) lecteur) 





ad 
DMP 4000 Amstrad 132 colonnes 
LQ 3500 Amstrad 80 col 


120 D Citizen 80 col 
LSP-100 Citizen 80 col 
OVERTURE 110 Citizen à LASER 





3D CLOCK CHESS - Jeu d'Echecs 
ACT 1 - Gestion de Fichiers 

ALEX - po E 

ANALYSE FINANCIÈRE 
AUTOFORMATION ASSEMBLEUR + Livre 
AZERTY Pour apprendre le clavier 
BOB WINNER - Jeu 

BRIDGE PLAYER - Bridge solitaire 

C BASIC COMPILEUR- Ütilitaire 
COLOSSUS CHESS - Jeux d'Echecs 
COMPTABILITE ALIENOR 

DATAMAT - Gestion de Fichiers 
DBASE2 gestion base de données 
DB COMPILER Compilateur DBASE Il 
TALOS DEVIS TRAVAUX 

DR DRAW - D.A.O. 

DR GRAPH - Graphiques 

EXBASIC - Utilitaire raphisme 
DAMOCLES FACTURATION/STOCK 
GESTION D'ASSOCIATION 

GESTION DE FICHIERS 

GESTION DOMESTIQUE 

HEAD OVER HEELS - Jeu 
HEATHROW AIR T.C. - Jeu 
L'INTEGRE 2 - Gestion de fichiers 
LECTURE EFFICACE 

LIGHT PEN - Stylo optique+D.A.O. 
MODULE CERFA - Bilan 

MULTIPLAN 

NEWS DESK INTERNATIONAL 
NOSTRADABUR Prév. Entreprise 
OPTICAISSE - Caisse enregistreuse 
ORPHEE 

PAIE - Traitement de la Paie/Multiplan 
PASCAL/MT+ - Compil.-désassemb. 
PAYE CRESUS - Gestion de salaires 
PCW GRAPH 

POCKET BASE - Base de données 
POCKET CALC - Tableur 

POCKET WORDSTAR -Trait. de textes 
ROTATE 

STARGLIDER 

STRIKE FORCE HARRIER Simulateur vol 
TELETUTOR - Apprentissage clavier 
TOMAHAWK Simulateur de vol en 3D 
TOP SECRET - Jeu 

TRIVIAL POURSUIT - Jeu 

FICHE - Gestion de Fichiers 

MAILING - Mailing pour Locoscript1 
TASWORD 8000 - Trait. Texte Pro 





LANGUAGE C - Ca 
SNOOKER - Jeu d 
SPOOL - Utilitaire 
GRAPHIC MAGIC 


RUBIS Compta. fa 
AGENDOR - Gesti 


F7 , 
WALBASK - Util. de programmation 
SNIP ART 
MOP-MBP Mini Bureau Professionnel 
POWER AMX Bureau - Souris+Progr. 
QUICK MAILING 
MENU - Répertoire adresses 
PLANIT Gestion budget personnel 
GRAFPAD III - Tablette graphique 
TAS-SIGN - Réalisation affichettes 
FAIRLIGHT 2 - Jeu 
ACE - Simulateur de vol Bombardier 
MATCHDAY Il - Jeu de football en 3D 





FONT PACK 1 - 5 polices pour SIGNWRITER 





FONT PACK2 - - - 
FONT PACK 3 - 






GESTION PLUS Il - gestion commerciale 


COMPTABILITE COMMERCANT 
TETRIS nouveau jeu soviétique 
Apprentis du Basic + Locoscript 
MEDITOR - Gestion cabinet médical 
PEDIA-MASTER - Gest. cab. Pédiatre 
MEDIFISC - Comptabilité médicale 


WALL STREET - Gestion boursière 





* Uniquement pour ancienne prise Port extension 
(pour prise SCHNEIDER, prévoir Convertisseur). 


Q 5250002 


Q *521102 
Q *521103 
Q 5211101 
Q 5211102 
Q 5211103 
Q 5211104 
Q 5211105 
Q 5211106 
Q 5211107 
Q 5211108 
Q 5215007 





Rallonge imprimante 2 cables de 1m 
Jeu de 3 housses super luxe PCW 8256 
Pied orientable multi-directionel 
Interface Joystick MX-770 


Q*52ADD18 Joystick MX-880 


Interface Série/Paral. Imprim. AMSOFT 
Interface RS-232 Imprim.+Minitel 
Ruban NOIR pour imprim. 8256/8512 
Ruban ROUGE 
Ruban BLEU …. ; 
Ruban VIOLET 
Ruban MARRON 
Ruban VERT …. A 
Ruban ORANGE 
Cassette ruban pour 9512 NOIR 
Disquettes 3 pouces CF2 AMSOFT 





—# N = C2 D à — à (© D = C3 
SBSESSRESREBEE 
882888823832288a 


pABSESSERSESESS: 
8888888888 


achats dans l'année, CML offre un abonnement d'un an à l'ECHO DU PCW 
NOUVEAUTES DU MOIS 


Développements DAMOCLES (cab. Bascle) 
5150079 DAMOCLES vins/boissons 
5150080 DAMOCOIFF salon de coiffure 
5150081 DAMOCLES GARAGE gestion 
5150082 DAMOCLES PRESTATIONS SERVICE 
5150083 DAMOCLES SCIERIES 
5150087 DAMOCLES BIJOUTIERS 
5150084 Edition de Traites avec DAMOCLES 520,00 
5150085 Relance impayés échéancier 
5150086 CABAMED Gestion Cabinet médical 1990,00 
5150088 SUIVI DE CHANTIERS Progiciel 
5150089 COMPILATION 7 jeux 





5211164 
© 5211165 
5211166 
5211167 
Q 5211169 


Q 5224700 
Q 5224710 
Q 5224720 
Q 5270001 
Q 5224800 
Q 5224810 








Q 5310010 
Q 5310011 
Q 5310013 
Q 5310014 
Q 5310015 
Q 5310016 
Q 5310019 
Q 5310020 
Q 5310026 
Q 5311028 
Q 5311029 





DAMOCLES 520,00 





110.00 Port: 25,00 F pour règlement à la commande 
60,00 F en contre-remboursement 
234.83 À renvoyer à: 
C.ML. 3 rue des Vignes 
77520 Luisetaines Donnemarie Dontilly 
#1:(1)60 67 37 95 
353.43 Catalogue complet des produits PCW contre 3 
24.00 timbres à 2,20 F pour frais d'envoi - gratuit avec toute 


le pour 9 disquettes 3” 
4162.86 commande. 


ONDULEUR 300VA Temps fonct. 10/30 mn 
PRO-TECH aliment. accus (non fourni) 






Papier TT 80g 12”x240mm - 600 plis 
Papier TT 60g 12”"x240mm - 600 plis 
Papier Lettre Luxe 12”x240 - 600 plis 
Listing Zoné 12"x240 mm 2600 plis 

Etiquettes 36x89mm, par 1 - Bte 4000 
Etiquettes 36x89mm, par 2 - Bte 8000 


Multiplan pour l'Entreprise 
Programmation du Z80 
Introduction au Basic 
Introduction au Pascal et Turbo P 
Amstrad Locoscript 

Amstrad CP/M Plus 


Nouveaux jeux d'ordinateur en Basic 
Le Basic par la pratique 

dBASE Il Applications 

Introduction à dBASE II 


is d'AOUT 


FOURNITURES ARTS GRAPHIQUES ET INFORMATIQU 


CML reste ouvert au mo 





RC. BOBIGNY 325 608 362-APE 7704 - C.A.P.N. - Le Bonaparte I 


D HERMION - TONY LUZY - FRANCOIS PAGE Î 


L'envoi de tout article sous-entend l'acceptation, par leur(s) 
I auteur(s), des conditions d'édition contenues dans le 
I protocole "Auteur que chaque auteur peut obtenir sur I 


L'ECHO DU PCW 


Une revue indépendante éditée par : 


LOGJ/'STICK Edition 


Boîte 49 - 93153 LE BLANC - MESNIL CEDEX - FRANCE 


TELEX: 213396 F - FAX: (1) 48.65.68.81 - TEL (1) 48.65.44.55 


L'Echo du PCW est distribué par les N.M.P.P 
(Nouvelles Messageries de la Presse Parisienne) 


PT ET ( BANES D'ESSAI 


DIRECTEUR DE LA PUBLICATION 
REDACTEUR EN CHEF 
GILLES PROBST 


CHEF DE RUBRIQUE 
GESTION/COMPTABILITE 
Mme LACAILLE 


RESPONSABLE FABRICATION 
YAN RICHE 


PHOTOGRAPHIE DE COUVERTURE 
PHILIPPE GUERIN 


MISE EN PAGE/MAQUETTE 
YAN RICHE - MACINTOSH 2 - XPRESS 


PHOTOCOMPO 
MAC INTOSH 2 - XPRESS 


PHOTOGRAVURE INTERIEURE 
IDP - BLANC MESNIL 


PHOTOGRAVURE COUVERTURE 
LE CAMELEON - PARIS 


PIERRE PAND - GREGOIRE SCULLARD 


CORRESPONDANCE 


simple demande écrite. 


Î Toutes réclamations, questions techniques ou relatives aux I 
articles de l'ECHO, demandes d'adresses ou de 
] documentations doivent être formulées par écrit à ] 
(| LOG/'STICK Edition en mentionnant sur l'enveloppe ke service I 


concerné. 


(| Les manuscrits non réclamés par les auteurs ne sont pas (| ESS 


I retournés. 


L'ECHO DU PCW décline toute responsabilité quant aux 
I opinions formulées dans les articles, celles-ci n'engageant (| 
que leurs auteurs. La loi du 11 MARS 1957 n'autorisant, aux 
I termes des alinéas 2 et 3 de l'article 41, d'une part que ‘les 
I copies ou reproductions strictement réservées à l'usage privé 
du copiste et non destinées à une utilisation collective" et, 
À d'autre part, que ‘les analyses et les courtes citations dans un | 
but d'exemple et d'illustration * toute représentation ou 
| reproduction, intégrale ou partielle, faite sans le 


————_——————————— 


SOMMIAIRE 





LES EXCLUSIFS DE L'ECHO 

GESTIT - Page 23 : A l'attention des sociétés, ce 
programme leur permettra de mieux gérer les plus et 
moins values réalisées en bourse. 


| 

I 

] 

I ELECTRON - Page 24 : Le PCW fait de l'Electronique 

I Assistée par Ordinateur en donnant tous les tuyaux 

I utiles aux calculs des amplificateurs. 
AIDE CP/M - Page 25 : L'équivalent français du fichier 

CP/M HELP.HLP indispensable pour travailler sans 
manuel. 

I PACK BASIC - Page 26 : Copies d'écran en deux 

I formats et nouvelles instructions graphiques pour le 

(| basic. 

I EDIT 2000 - Page 27 : A l'image de ce qui se fait de 

I mieux sur gros systèmes voici Un éditeur puissant. 

I SUPER TURF - Page 28 : Mettez le PCW au service de 

I votre fortune en lui demandant le prochain tiercé... 

I GENEALOGIA - Page 29 : Généalogie ascendante 
sous DBASE Il, de quoi occuper toute la famille! 

[ 

I AVENTURES - Page 30 : Première mondiale sur PCW, un 
véritable logiciel de Jeu Assité par Ordinateur. 

I DR DRAW conîre PCW PAINT - Page 49 : David ou 

Goliath? Lequel choisir pour illuminer le PCW de vos 
talents picturaux. 


IMPRESSION î INITIATIONS BASIC (7) - Page 8 : Tout sur INKEYS avec quelques 
HERISSEY - EVREUX Eee qui deviendront rapidement 
ndispensables. 
Se [ PASCAL (6) - Page 36 : Jerôme Boulenger passe la 
D.I- France I vitesse supérieure avec son langage préféré. 
D ns “pass : PROGRAMMES MENU.BAS - Page 17 : Comment gérer ses fichiers sans 
(1) 48.65.44. i se fatiguer ? Voila le secret qui sera révélé! 
COLLABORATEURS AYANT PARTICIPE A LA 1 FONCTIONS SOUS GSX - Page 54 : Sinus, cosinus, il sait 
REDACTION DE CE NUMERO tout faire et en GSX s'il vous plait ! 
ARNAUD BISSOUDRE - JEROME | DIVERS LES ENTRAILLES DE DBASE (3) - Page 43 : Suite et fin de 
BOULENGER - DOMINIQUE BRESCHI I DBASE Il et langage machine. 
PIERRE CORBARA es GERMAIN DELALANDE I PROPRES REIN SET D PL LIT IST LOUE D LES POP RETS DER EREEREEEERR RER RENNES ERERENRERARRERRENRREER EE ON Ne 
ALBERT DUROUX - A. FRIEDRICH - MARC REPORTAGES PIZZA DEL ARTE - Page 15 : À découvrir: comment une 


pizeria de pointe optimise la gestion de ses comptes. 


AMSTRAD SHOW - Page 48 : La remise en question 
d'un marché florissant serait-elle arrivée ? 


SOMMAIRE Page 3 - EDITO Page 5 - NEWS Page 6 - BON DE 
COMMANDE EXCLUSIFS Page 22 - CAHIER CENTRAL Page 31 - 
INTERACTIF Page 50 - COURRIER DES LECTEURS Page 60 - 
COMMENT SAISIR UN PROGRAMME BASIC Page 64 - 

PETITES ANNONCES Page 64 


RUBRIQUES 
j MABITUELLES 





Décrits chaque mois dans des fiches techniques ls ont un bon de commande qui leur est propre. 
Tous les programmes de ce présent numéro sont regroupés sur une seule et même disquette dont 
le numéro correspond à celui du Jounal. 

Les anciens numéros de l'Echo du PCW sont encore disponibles à l'excepion du numéro 2 dont 
nous ne Evrons que des photocopies. 

La rekure Echo est personnalisée au sigle du journdi et permet de classer une année entière, so 11 numéros. 
Pour vous procurer un ou plusieurs de ces ariicies, utilisez ou recoplez le bon de commande situé en page centrale. 
Le tarif de publicité est disponible sur simple dernande par courrier. 

Un échanilionnage de papier personnalisé peut être obtenu par courrier accompagné de 10 F en timbres. 


1 Les exclusifs : 
Disquette Echo : 


[ Anciens numéros : 
l Reliure Echo: 


Publicité : 
Î Papier à en-tête : 


f consentement de l'auteur ou de ses ayants droit ou ayants [ Correspondance : Pour toute corespondance, joindre une enveloppe timbrée pour la réponse. 
cause, est illicite” (alinéa 1 de l'article 40). Cette 


I représentation ou reproduction, par quelque procédé que I 
I ce soit, constituerait donc une contrefaçon sanctionnée par I 


les articles 425 et suivant du code pénal. 


q———— 


ISSN 0728-7648 
L'ECHO DU PCW © LOGJ/'STICK 
1988 


eus ras men en mi mer as amsn msi 





JUILLET- N°2 


En couverture : La surprise du chef ou la pizza PCWiina du jour ! 








VOS TRANSACTIONS 


… (télex, bourse...) ? 





Ë MYNEA ET SYNEA POUR PCW SONT DISPONIBLES 
SERVICE TELEMATIQUE È CHEZ VOTRE REVENDEUR. C'est une exclusivité D.D.I. 
Fe - (1) 48.67.28.44 + 


4 





Vacances ??? 


Imaginez à quelles horreurs vous pourriez échapper : Une plage surpeuplée 
de grouillantes amibes qui n'attendent que vous pour s'éclater les nerfs. Des 
routes asphaltées ramolies par le Rà de service qui calme enfin les siens 

(nerfs !), pendant votre trajet, en allant se cacher quand vous êtes arrivés! 


Pensez à l'inflation des cours : du jus d'orange, du chichi provencal et du 
tapis berbère, alors que tout Paris brade, aux absents, ses 
meilleurs trésors. 












Epargnez-vous l'horreur des retours blafards où l'on 
. {compte ses pertes : La grand-mère, le ballon, 
7£ la vertu de l'aînée et l'adresse du copain 
:: À © a © de latente voisine... songez enfin 
D M @ aux sournoises nouvelles jaillissant 
<: de votre boîte à lettres : l'injuste 
augmentation d'un gaz qui ne sent 
jamais bon et fait bouillir le jus, si l'on 
n'y prend garde ? Pouah! 









Réfléchissez-y bien, avant 
de faire l'erreur qui han- 
tera vos nuits quand vous l'aurez commise. 
Quatre jolies semaines irrémédiablement 
gâchées, perdues, foutues, qui au- 
raient pu marquer votre passage ici 
d'un sceau inamovible : 


VOTRE PREMIER PROGRAMME ! 
GILLES PROBST 





000000000000. > PS : En me relisant, je m'aperçois que j'ai 
vraiment besoin de vacances. alors je vous 
laisse ma place en vous offrant les vôtres. 
Comment ? En participant, sans aucun com- 
plexe, à notre : 


super concours ECHO de la page 20. 


EDITO *+ L'ECHO DU PCW N°20 RES Re EL 







NEWS …. NEWS .… NEWS .. NEWS . NEWS … NEWS NEWS . NEWS … NEWS ... NEW 


SILENCE ! ON TOURNE 


Ennnnnfin ! 


Le capot insonorisant pour l'infernale imprimante à 
marguerite du PCW 9512 est arrivé. Livré en KIT, 
il se monte en 3 minutes avec une déconcertante 
facilité. Une fois monté, on y loge l'imprimante et si 
l'utilisateur dispose de papier continu, il ne sera 
pas lésé puisque deux fentes sont prévues à cet 
effet (face arrière). Particulièrement économique 
comparativement aux prix habituels de ce genre 
d'accessoire (+ de 2000 Frs, le silence n'a pas de 
prix...), ce capot est léger (2 Kg), vraiment efficace 
(80% du bruit supprimé) et de plus il est beau ! 





CAPOT iNSONORISANT POUR PCW 9512 : 
750 FRS TTC 


EXCLUSIVITE D.D.I CHEZ TOUS LES REVENDEURS 
Liste des revendeurs agréés D.D.I. 
(1) 48.67.28.44 


MORT AU BUGS 


Plusieurs logiciels LOGI'STICK font l'objet d'amé- 
liorations notoires et surtout de corrections de 
vilains petits bugs qui trainaient encore... 

Il s'agit d'HERAKLIOS et de la série ASTRO. 


contre les nouvelles, LOGI'STICK propose aux 
propriétaires des versions ASTRO 1, 2, 3 (voir 
plus loin) ou COUPLE d'obtenir la version supé- 
rieure en ne payant que la différence. 


le : Vous possédez ASTRO 1 et vous sou- 
ous procurer ASTRO III vous ne payerez 
550 Frs au lieu de 2000 Frs. 


Comment obtenir votre dernière version : 


MISES A JOUR 


HERAKLIOS et ASTRO : Si l'achat date de moins 
de trois mois (justificatif à l'appui), retournez votre 
disquette originale sans le boîtier avec 10 F en 
timbres ou en chèque pour participation aux frais. 
Si l'achat remonte à plus de trois mois, retournez 
votre disquette et joignez 50 Frs. 


ECHANGE ASTRO 


Retournez votre disquette originale et joignez le 
règlement de la différence sur la base des prix sui- 
vants: 


ASTRO 1 : 450 F - ASTRO 2 : 950 F 
ASTRO COUPLE : 650 F - ASTRO 3 : 2000 F 
ASTRO 5F : 2300 F 


NOUVEAUTE : ASTRO IL F 


Nouvelle version d'ASTRO 3 qui vient s'ajouter à 
la gamme déjà existante, elle inclut, en standard, 
l'interprétation du futur comme décrit dans l'Echo 15. 


CORRESPONDANCE : 
Retournez disquettes et règlement à : 
LOGI'STICK Edition 
Service Technique 


oi CAPN - Le Bonaparte - Boîte 49 
93159 Le Blanc-Mesnil Cédex 








HERAKLIOS 





NEWS + L'ECHO DU PCW N° 21 





S . NEWS …. NEWS . NEWS .…. NEWS .. NEWS .. NEWS .. NEWS .. NEWS . NEWS … 


rormer Les Juniors | ELEFONT  SHOPFONT 


Belle initiative de la part d'ALTITUDE XXI qui pro- ( Id Condensed) 
pose non la Dao estivale, aux Pt a ABCDEFGHIJKLMN Spies LE 
adolescents, de 8 à 16 ans, de découvrir l'informa- 0B OPEN RENENr ARCEFGHIJKLMNOP 
tique par l'intermédiaire d'ateliers où, pris en char- , BOLD FO NT  TUVWXYZNCÉU 


ge par des animateurs jeunes et attentifs, ils mn daf 
apprendront les bases nécessaires à une EIANRN EEE ee shijkimnopq 


Fe plus facile de leur futur environnement ARE ( BG © LE FO N 1 yzéàcioayn 
Les parents soucieux de la qualité de ce stage “WX ABC CORNE ONT>» 7890! 


junior apprécieront le fait qu'il n'accepte que huit {L< 


" 
enfants par cession et que chacun aura accès à ur ga abc AC OS LeIT000000. N\)} ] 
une machine pour s'initier. O 

üü ABCDEFGHIJK 


re ps 1, abc 
“Hope ANS ENCREU 
Sl'abcdefghijkl:; 
‘mnopgrstuvw 


SE ro 
1234567897 


ALTITUDE XXI Des 


centre agréé 5219, Mocwna, A-219 “à 020 


ya. Basruñcnas, 7. 14 
STAGE JUNIOR - Une demi - journée 


si BcecoiosubiÂ HHCTHTYT- Hayanof 
®' Renseignements et inscriptions à Le gi SEM HP TL IS 

e « e e fe 4h 

ne ALTITUDE XXI : Tel (1) 46.53.05.50 nn unes 
ERA no NE Em + qe dm mat ce mar BP.37, 93153 Le 3lanc-Mesnil 


France 
oo 
MAIS QUE FAIT LA POLICE 22? HHCTHTYT HAYYHO HHOPMALLHH AKAJNEMHH/HAYK CCCP 


(BHHHTH) 


Mocxsa, A-219, Banruñckan yanua, 14 








Cinq nouvelles polices de caractères entièrement 
francisées viennent enrichir le patrimoine typogra- Ne 
phique du SIGNWRITER dont les caractéristiques >, 

ont été largement décrites dans l'ECHO N°14. WCCCP 

Pour mémoire, rappelons que ce logiciel permet 
d'imprimer avec une résolution maximale des 
caractères proche de la perfection en toutes tailles 
et avec de multiples variantes. 


Ils insistent pour obtenir la collection complète de l'Echo. 
Nous soumettons cette idée à référendum. 


DOIT-ON ? Ü1 out TJ NON 


Utilisé, conjoitement avec des rubans couleurs, Les votes seront comptabilisés jusqu'au 31/8/1988 ! 
SIGNWRITER réalise de spectaculaires panneaux 
publicitaires, de fabuleuses affichettes et de mer- 
veilleuses décorations ! Appelée PACK FONT N°2 
la disquette qui regroupe les cinq polices, illustrées 
dans cette article, est normalement disponibles 
chez les revendeurs PCW. 
Pour en connaître la liste : Un seul numéro 

D.D.I. (1) 48.67.28.44 + 


PACK 2 : BOLDFONT, HOLEFONT, CORN- 
FONT, SHOPFONT, ELEFONT 

Pour PCW 8256/8512 et 9512 ° 
EXCLUSIVITE D.D.I 

PRIX : 350 F TTC 





° PCW 9512 : Avec imprimante parallèle exclusivement. œ] 
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de capter une pression du clavier sans interrompre le 
programme en cours. Ainsi, nous pouvons l'exploiter 
dans des circonstances diamétralement opposées soit, 
quand le clavier est sollicité ou, bien au contraire, quand 
il ne_ l'est pas. 


Cette possibilité distingue INKEY$ d'INPUT (cf ECHO 
20) qui se contente d'attendre béatement que l'utilisateur 
décide de son sort par une pression de la touche 
<RETURN>. 





Simple, la syntaxe d'INKEY$ demande un temps d'adap- 
tation et un minimum de pratique. Pour éclaircir ce pro- 
pos, il faut imaginer que INKEY$ veut dire "touche" et 
que son contenu ne peut être autre que: soit vide, soit 
rempli d'un seul caractère exclusivement alphanumérique. 


EXEMPLE : 


TRADUCTION EN FRANÇAIS : SI TOUCHE=AUCUNE PRESSION 
ALORS CONTINUER À ATTENDRE 


COMMENTAIRE : 


Ce premier programme fait exactement ceci : SI 
TOUCHE N'EST PAS PRESSEE ALORS VA A LA 
LIGNE 10. "Aucune touche” étant exprimé par l'absence 
de tout caractère entre les deux guillemets. 


Comme il retourne à la ligne où INKEY$ se trouve, le 
programme boucle tant qu'aucune touche n'est pressée. 
Maintenant, nous savons comment INKEY$ détecte la 
pression d'une touche, mais c'est insuffisant pour 


e Nous le savons, l'informatique se résume en trois mots : entrée, 
traitement et sortie. C'est lors de notre précédente rencontre 
que je vous en avais donné le détail en commençant, sans 
coup férir, par l'étude de l'instruction d'entrée INPUT. Je pour- 
suivrais avec l'instruction la plus populaire chez les experts 
“basiciens”, INKEY$. Pour ajouter un peu de piment à cette 

délicate mission qui m'est confiée, j'ai ponctué notre rencontre 

de programmes types qui, opérationnels, pourront être facile- 
ment adaptés à de nombreux cas... 


connaître avec précision de laquelle il s'agit. 
Supposons que nous souhaïitions détecter si la touche 
<A> est pressée voilà comment nous allons procéder 
dans le programme suivant: 


EXEMPLE : 

DO + 1 
: 10 IF INKEY$<>"A" THEN 10 
l 1 
Loue eue me me eme me me me me me me eme me meme me me me me me ee me ee me me me ee one eee oe œe eme oem J 


TRADUCTION EN FRANÇAIS : SI LA TOUCHE PRESSEE N'EST 
PAS "A" MAJUSCULE (<SHIFT>+<A>) ALORS VA EN LIGNE 10 
ET CONTINUE LE MEME TEST... 


COMMENTAIRE : 


C'est assurément facile mais encore trop imprécis. 
Maintenant, nous voulons que notre programme soit 
aussi capable de réagir même si la pression se fait sur 
un À minuscule, ce qui n'était pas dans les moyens du 
programme précédent. Voila de quoi résoudre le problè- 
me: 


EXEMPLE : 

me ie an 1 
. 10 IF UPPERS (INKEY$)<>"A" THEN 10 ! 
0 ! 
Lomme J 


TRADUCTION EN FRANÇAIS: SI LA TOUCHE PRESSEE N'EST 
PAS EN MAJUSCULE ELLE SERA DE TOUTE FAÇON CONSIDE- 
REE COMME TELLE ET SI ELLE N'EST PAS À (OU a) LE PRO- 
GRAMME CONTINUERA EN 10. 


Tout est vraiment clair et nous percevons, encore un 
fois, ce qui fait toute la force d'un langage et qui 
engendre les méandres cervicaux des programmeur 
c'est: l'adaptation, par l'assemblage, à des besoins pré- 
cis. Un mécano en somme, mais le basic est infiniment 
plus ouvert... 


Trêve de philosophie et retour à nos boutons! 
Maintenant que nous savons comment l'INKEY$ s'occu- 
pe de nos moindres tatonnements voyons comment utili- 
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ser cela dans un contexte plus réaliste. 


Il s'agit de pouvoir exploiter l'information transmise à 
INKEY$ par la pression d'une touche à la suite du pro- 
gramme chargé de l'exploiter. Pas d'affolement dans les 
chaumières, c'est toujours aussi simple! 


EXEMPLE : 


COMMENTAIRE : 


Ce programme est similaire au précédent à un détail 
près : LA MOINDRE TOUCHE PRESSEE EST STOCKEE 
DANS LA VARIABLE A$ POUR UNE UTILISATION ULTE- 
RIEURE 


De la même façon toute minuscule est transformée et 
stockée en majuscule dans la variable A$. Pour le véri- 
fier, il suffit d'afficher son contenu en ajoutant la ligne 
suivante : 20 PRINT A$ 


Ainsi, vous vous rendrez compte que le contenu de A$ 
est toujours À majuscule, même si vous avez appuyé 
sur À minuscule. 





Passons à une variante culturelle : 


EXEMPLE : 


COMMENTAIRE : 


C'est la même chose me direz-vous, et bien non! 
Effectivement, le programme réagit sans fléchir que A 
soit minuscule ou majuscule, mais le contenu de A$ 
n'est plus en majuscule puisque le test 

IF UPPERS(A$)<>"A" équivaut à cela : 


SI LE CONTENU DE A$ MIS EN MAJUSCULE EST DIFFE- 
RENT DE À MAJUSCULE. 


Subtil non? 





TAMPON CLAVIER 


Le tampon, traduction littérale de buffer, est une zone de 
mémoire attachée à un périphérique. Tous ceux du PCW 
ont leur mémoire tampon. Dans notre initiation, c'est 
évidemment du tampon clavier qu'il nous faut parler... 


Pourquoi un tampon ? 

Parce que le rythme d'une frappe au clavier n'est pas 
forcément le même que celui du traitement en cours et 
qu'il serait très vite génant d'avoir à attendre qu'un pro- 
gramme soit complètement disponible pour entrer nos 
informations. Le tampon est donc un régulateur doté 
d'une certaine mémoire. Si cette dernière est assez limi- 
tée pour ce qui concerne le PCW (quelques dizaines 
d'octets) elle reste suffisante dans la majorité des cir- 
constances. Regardons ses effets sur l'instruction 
INKEY$ 


EXEMPLE : 


à 
! 
10 FOR I=1 TO 5000:NEXT:PRINT CHR$(7) ! 
20 A$=INKEY$S:IF A$="" THEN 20 L 
30 PRINT "Touche pressée!" ! 

! 

J 


p=——————— 


COMMENTAIRE : 


Le programme boucle 5000 fois en ligne 10 et émet un 

bip quand la boucle est terminée puis se met en attente 
d'une pression de touche quelconque en ligne 20 qui a 

pour effet d'afficher "Touche pressée!" en ligne 30 


EXPERIENCE : 


Lançons le programme par RUN <RETURN> et tapons 
Sur une ou plusieurs touches avant que le bip ne reten- 
tisse (surtout pas aprèsl!). 


Résultat, malgré que le programme soit encore en traite- 
ment (ligne 10), l'entrée est tout de même prise en 
compte, prouvant ainsi que le tampon est bien opéra- 
tionnel et que les touches pressées, pendant le déroule- 
ment d'un programme, ne seront pas oubliées lorsque 
l'instruction INKEY$ se présentera. 


Comme toute particularité, le tampon présente un avan- 
tage, que nous venons de tester, mais aussi un inconvé- 
nient en cela que nous pourrions souhaiter le rendre 
inopérant pour quelque raison que ce soit. 


Par exemple : 

Utilisateur inexpérimenté pressant n'importe quoi ou trop 
longtemps sur une touche (problème d'auto-répétition 
faisant que l'entrée se répète) et provocant, par anticipa- 
tion, des entrées erronées et probablement dangeu- 
reuses.. 

Le remède à ce mal est aussi simple que peu utilisé et 
je vous laisse deux minutes pour vous en rendre 
compte. 
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PROGRAMMATION BASIC 


EXEMPLE : 

oi er En tr 1 
! 10 FOR I=1 TO 5000:NEXT:PRINT CHR$(7) ! 
| 15 A$=INKREYS | 
| 20 A$=INKEYS:IF A$="" THEN 20 È 
| 30 PRINT "Touche pressée!" 
! 
Lomme J 


COMMENTAIRE : 


Ce programme fait strictement la même chose que le 
précédent. Seul changement, nous avons intercalé la 
ligne 15 qui semble répétitive par rapport à la ligne 20 
alors qu'il n'en est rien. 


EXPERIENCE : 


Toujours avant le bip, pressez toutes les touches que 
vous voulez. Si aucune n'est pressée après le bip, vous 
découvrirez que le tampon est totalement inopérant ! Ne 
croyez pas que nous l'ayons désactivé, non, nous avons 
simplement utilisé une particularité d'INKEY$ qui prend 
en compte le premier caractère se trouvant dans le tam- 
pon en le vidant du reste. Moralité: après le premier pas- 
sage sur A$=INKEY$, INKEY$ se trouve vidé de son 
contenu et arrive vide sur la ligne de test 20. Plus d'er- 
reur, plus de doute, la fiabilité du test est maintenant 
totale. 





Il est grand temps de passer aux choses sérieuses. 
Nous allons regarder de plus près différentes variantes 
de menus et de saisies d'entrées par le biais d'INKEY$. 
Au terme de ces essais, nous nous serons constitué une 
bibliothèque de programmes qui répondra à la majorité 
des cas de figure. 


Le premier menu de la série sert dans le cas de choix 
précis qui seront traités par des sous-programmes dis- 
tincts se trouvant à différentes adresses (un numéro de 
ligne est une adresse puisque nous demandons au pro- 
gramme d'y aller!). 


EXEMPLE : 


10 PRINT CHR$ (27) "E"CHRS (27) "H":REM EFFACE L'ECRAN 
20 PRINT "(Menu - (E)dition - (I)mpression - (F)in" 
30 A$=UPPERS (INKEYS) 

40 IF A$="M" THEN 1000 

50 IF A$="E" THEN 2000 

60 IF A$="I" THEN 3000 

710 IF A$="F" THEN END 

80 GOTO 30 

1000 REM TRAITEMENT DU MENU 

1010 PRINT "TRAITEMENT DU MENU" :GOTO 30 

2000 REM TRAITEMENT DE L'EDITION 

2010 PRINT "TRAITEMENT DE l'EDITION":GOTO 30 

3000 REM TRAITEMENT DE L' IMPRESSION 

3010 PRINT "TRAITEMENT DE l'IMPRESSION" :GOTO 30 


Lommmmmmmm__…. 








COMMENTAIRE : 


La séquence de la ligne 10 efface l'écran et laisse place 
au menu affiché par la ligne 20. Le test de la touche se 
fait en ligne 30 et le traitement de l'entrée, aux lignes 40 
à 80. La sortie de ce programme se fait par le choix <F> 
qui, traité à la ligne 70 conclut les opérations grâce à 
l'instruction END. 


ADAPTATION : 


L'adaptation à d'autres programmes se fera aisément 
suivant les indications suivantes: 

Changement du message de la ligne 20 avec ajout ou 
suppression de possibilités. Notez qu'aucun choix ne 
devra porter sur la même lettre puisque le premier trou- 
vé sera le premier traité. 

Les touches choisies pour la sélection devront être pla- 
cées dans les lignes de test (40 à 70). Si vous en ajou- 
tez, mettez des lignes de test entre 40 et 70. Par contre, 
si vous en supprimez, détruisez aussi les lignes de test 
qui ne servent plus. 





DOS R SOS RS SO RS AS CSSS SSSR RSS SDS STATS 


Après ce premier menu, envisageons la meilleure 
méthode pour traiter un nombre beaucoup plus impor- 
tant de touches possibles ainsi que la façon de les redi- 
riger (adresser) vers les lignes adéquates où le traite- 
ment sera effectué. 


EXEMPLE : 


tr eu . 
(l 

10 CHOIXS="123456789F" i 
20 PRINT CHRS (27) "E"CHRS (27) "H":REM RFFACEMENT DE L'ECRAN | 
30 PRINT "TRAITEMENT DE (1) à (9) où (F)IN pour quitter" 1! 
40 AS=INKEYS:IF A$="" THEN 40 I 
50 A=INSTR (CHOIXS, A$) 
60 ON À GOSUB 100,200, 300, 400,500, 600, 700, 800, 900, 1000 
70 GOTO 40 1 
80 ; 
90 : 1 
100 REM TRAITEMENT 1 
110 PRINT "TRAITEMENT 1":RETURN 
200 REM TRAITEMENT 2 E 
210 PRINT "TRAITEMENT 2" :RETURN i 
300 REM TRAITEMENT 3 1 
310 PRINT "TRAITEMENT 3" :RETURN ! 
400 REM TRAITEMENT 4 1 
410 PRINT "TRAITEMENT 4" :RETURN 1 
500 REM TRAITEMENT 5 l 
510 PRINT "TRAITEMENT 5" :RETURN | 
600 REM TRAITEMENT 6 ; 
610 PRINT "TRAITEMENT 6" :RETURN É 
700 REM TRAITEMENT 7 ; 
710 PRINT "TRAITEMENT 7" :RETURN É 
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pm 


PROGRAMMATION BASIC 





! 
800 REM TRAITEMENT 8 ! 
810 PRINT “TRAITEMENT 8" :RETURN - 
900 REM TRAITEMENT 9 ; 
910 PRINT “TRAITEMENT 9" :RETURN . 
1000 REM TRAITEMENT 10 L 
1010 END | 

3 


(N)adane, a(Odnsieur ou n(f)denoiselle ? 
BONJOUR. . .Madane 
(NWadane, A(O)nsieur ou n(Addenoiselle ? 


BONJOUR. . Monsieur 
* lssnas a(O)nsieur ou aA(f)denoiselle ? 





COMMENTAIRE : 


Ce n'est plus quatre, mais dix choix qui sont offerts par 
ce menu. L'astuce consiste à recourir à l'instruction 
INSTR (déjà vu dans l'ECHO 18) dont la faculté est de 
pouvoir indiquer si un caractère, ou une chaîne de 
caractères, se trouve dans une autre chaîne. Si c'est le 
cas, INSTR donne la position du caractère cherché dans 
la chaîne servant au test. En l'occurence, il s'agit de la 
chaîne CHOIXS$ dans laquelle nous avons mis tous les 
caractères connus comme correspondant à une réponse 
acceptable et ce, dans un ordre rigoureusement similai- 
re à celui des adresses de l'ordre ON GOSUB. 


J'explique pourquoi : 


Au moment du test par INSTR, nous plaçons le résultat 
dans la variable A puis nous demandons à 

ON A GOSUB de continuer son déroulement à la ligne 
qui correspond au contenu de A. Si A=1, le programme 
va en ligne 100, si A=2, le programme va en ligne 200 
et ainsi de suite. 

Notez que si une touche est pressée alors qu'elle ne 
correspond à aucune de celles contenues en CHOIX, 
la valeur de A sera 0 ce qui est considéré comme inac- 
ceptable par ON GOSUB qui laisse continuer le pro- 
gramme en ligne 70 où l'instruction GOTO 490 l'attend au 
détour pour le renvoyer à la ligne de test. 


MODIFICATION : 


Comme toujours, vous pouvez ajouter ou supprimer des 
options en veillant à ce que les touches soient mises 
dans CHOIX$ dans l'ordre de l'adressage coordonné par 
ON GOSUB. Toutefois, si vous réduisez à moins de cinq 
possibilités de choix, je vous conseille vivement de 
recourir au programme précédent car plus adapté à des 
entrées moins nombreuses. 


Le programme, qui suit, exploite mieux encore ce fabu- 
leux pouvoir de contrôle de la fonction INKEY$. II ne 
s'agit plus de renvoyer sur des adresses particulières 
pour faire le traitement des entrées puisqu'il se fait au 
même moment que les entrées elles-mêmes... 





EXEMPLE : 


10 PRINT CHR$(27)"E"CHRS (27) "H":REM EFFACE L'ECRAN 
20 PRINT "(M)adame, m(0)nsieur ou m(A)demoiselle ?" 
30 AS$=UPPERS (INKEYS) : TITRES="Madame":IF A$<>"M" 
THEN TITRES="Monsieur":IF A$<>"O" THEN TITRES="Made 
moiselle":IF A$<>"A" THEN 30 

40 PRINT:PRINT "BONJOUR...";TITRES 

50 PRINT:GOTO 20 


COMMENTAIRE : 


Le choix est limité à trois possibilités et cette méthode 
sera difficilement adaptable à plus de cinq touches. Les 
tests de la ligne 30 servent, non seulement à déterminer 
si l'une des trois touches possibles est pressée, mais en 
profitent pour changer le contenu de la variable TITRES 
en fonction du résultat. 

Je vous laisse décortiquer ce passage, ce sera un 
excellent exercice pour vos méninges qui commence 
probablement à surchauffer à ce stade de nos essais. 


MODIFICATION : 


Les modifications porteront, outre sur le nombre de pos- 
sibilités, sur la touche prise en compte pour chaque 
choix, mais aussi sur l'utilisation d'une variable entre 
deux tests (ligne 30). Si le coeur vous en dit, vous pou- 
vez aussi essayer d'intercaler des sauts à des sous-pro- 
grammes par GOSUB pour un sous-traitement particu- 
lier. Cette dernière suggestion étant tout de même à 
prendre avec des pincettes surtout si vous démarrez 
dans la pratique du basic! 





Le choix par INKEY$ ne porte pas forcément sur une 
lettre ou une touche précise car il peut aussi servir à 
déplacer des éléments qui permettront au programme 
de déterminer le traitement opportun. 


EXEMPLE : 


10 FOR I=1 TO 7:READ AS(I):NEXT:Y=1 

20 PRINT CERS (27) "E"CERS (27) "E" 

30 FOR I=1 TO 7:PRINT CERS (27) "Y"CHRS (44+I)CERS (65) AS (I) :NEXT 

40 PRINT CERS (27) "p"CERS (27) "Y"CERS (44+Y) CERS (65) AS (Y)CERS (27) "q" 
50 AS=INREYS:IF A$="" THEN 50 

60 A=ASC(AS$) :IF A=31 AND Y>1 THEN Y=Y-1:GOT0 30 

70 IF A=30 AND Y<7 THEN Y=Y#1:GOTO 30 

80 IF A=13 THEN PRINT CERS (27) "Y--";A$ (Y) SPACES (5) 

90 GOTO 50 

150 DATA LUNDI, MARDI, MERCREDI, JEUDI, VENDREDI, SAMEDI , DIMANCHE 
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PROGRAMMATION BASIC 


COMMENTAIRE : 


La boucle de la ligne 10 lit les données de la ligne 150 
en les mémorisant dans des variables indicées (A${(1) à 
A$(7)). Ceci est fait une fois pour toute. 

Le programme affiche alors, ligne à ligne, le contenu des 
7 variables soit les sept jours de la semaine (ligne 30) et 
met le jour correspondant à la position du curseur (1 au 
départ) en inversion vidéo grâce à la séquence: 

PRINT CHR$(27)"p". 


Les tests des lignes 60 et 70 porte sur les code 31 et 30 
correspondant, respectivement aux flèches, haute et 
basse, du pavé numérique. Chaque ligne de test contrô- 
le aussi que la valeur de Y, qui contient la position relati- 
ve du curseur, ne sort pas des limites imposées par le 
nombre d'options (7 Jours donc Y=1 à Y=7). 

Chaque fois qu'une pression d'une flèche, haute ou 
basse, est acceptée, parce que dans les limites, Y est 
augmenté ou diminué d'une unité, les sept jours s'affi- 
chent (ligne 30) et le jour correspondant à la valeur 
contenue en Y est mis en inversion vidéo (ligne 40). 


Pour permettre un traitement éventuel, nous avons ajou- 
té un test sur la touche <RETURN:> dont le code est 13 
(ligne 80) et pour l'illustrer, nous faisons afficher le jour 
choisi à une position déterminée par: 

PRINT CHR$(27)"y" qui correspond à la séquence 
ESCAPE de positionnement du curseur à l'écran dont 
nous décrirons les méandres ultèrieurement.. 


MODIFICATION : 


Ajout ou suppression d'options, nous devrons alors 
modifier toutes les boucles des lignes 10 et 30 en 
conséquence. Dans ce même soucis, nous corrigerons 
les valeurs limites des tests des lignes 60 et 70 et nous 
adapterons notre traitement en fonction de nos impéra- 
tifs (ligne 70 s'il faut presser <RETURN> ou ligne 40 si 
le traitement doit se faire chaque fois que le curseur se 
déplace. Du pain sur la planche ! 





Pour terminer sur ce passionant sujet, voici un program- 
me qui utilise INKEY$ afin de rentrer des messages de 
longueurs variables comme le permet INPUT, largement 
décrit lors de notre précédente rencontre. 


EXEMPLE : 


10 ESC$=CHRS (27) 

20 PRINT ESC$"R"ESCS"H" :WIDTH 255 

30. ASat MOTS mn donnes sue “:X=1:GOSUB 100 
40 AS=INKEYS:IF A$="" THEN 40 

50 A=ASC(A$) 

60 IF A>31 AND A<127 AND X<26 THEN GOSUB 100:X=X+1 

70 IF A=127 AND X>1 THEN A$=".":X=X-1:GOSUB 100 

80 IF A=13 AND X>1 THEN PRINT ESC$"Y/-"LRFTS (MOTS, X-1) 
SPACES (25) :GOTO 30 

90 GOTO 40 

100 MOTS=LEFTS (MOTS, X-1)+A$+RIGHTS (MOTS, 25-X) :PRINT ESC$ 
"Y.->":MOTSESCS"Y." :RETURN 


Lmmmmmmmmemmemmmmmex 


)J'ai tapé NEH-YORK....... 


et ca aarchell!! 





COMMENTAIRE : 


La ligne 20 efface l'écran et supprime toute limite dans 
la longueur des lignes écran (WIDTH 255). Le texte saisi 
sera stocké dans la variable MOTS qui, dès le départ, 
est remplie de points qui serviront de ligne de saisie à 
l'écran. 


X gère la position du curseur dans la ligne et le décou- 
page de la variable (ligne 100) pour l'ajout ou la sup- 
pression d'une lettre. La ligne 60 contrôle que le code du 
caractère saisi est bien dans la limite 32 à 126 qui est la 
plage du jeu ASCII affichable. 

La ligne 70 détecte la pression de la touche <'DEL>, 
teste que nous pouvons supprimer des caractères si X 
est supérieur à 1 et affiche le mots contenu dans MOT$ 
en supprimant le reliquat de points qu'il contenait en le 
coupant à partir de la gauche avec une longueur égale 
au nombre de caractères déjà tapés (X). 


AMELIORATION : 


La longueur du message est la première amélioration 
qui vient à l'esprit. A cet effet, nous modifierons la lon- 
gueur de la chaîne de points mise en MOTS à la ligne 
30, nous mettrons la longueur de la chaîne comme 
valeur limite du test de la ligne 60 ainsi que dans le 
découpage de la ligne 100 où nous retirerons 1 de la 
valeur limite. 





INKEY$ est l'une des instructions les plus passion- 
nantes du basic et ces quelques variations vous en 
convaincront. 

Vous avez maintenant un sérieuse matière pour plan- 
cher sous les cocotiers et revenir aussi calés que bron- 
zés! 
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FORMATION CONTINUE 9512) 


ALTITUDE XXI organise des sémi- 
naires de formation pour tous les re- 
sponsables micro-informatiques, utilisa- 
teurs ou jeunes en micro-informatique 
sur PCW ou sur PC. 





9512. 


L.: système d’exploitation CP-M +: dates: 

Objectifs: acquérir une maîtrise de 
l'environnement CP-M sur PCW, 
connaître la plupart des commandes 
système du PCW permettant une meil- 
leure utilisation des ressources maté- 
rielles et logicielles. 


(1 journée, 950.00 FHT) 
dates: 22-07-88 et 12-09-88 





Mairie de LOCOSCRIPT 1:(PCW dates: 


8512 et 8256) 

Objectifs: maîtriser le traitement de 
texte avec l’ensemble des possibilités du 
logiciel, acquérir de solides connais- 
sances dans le traitement de documents 
sur PCW. 

(2 jours, 850.00 FHT-jour) 


Obiectifs: maîtriser le traitement de 
texte avec l’ensemble des possibilités du 
logiciel avec la gestion de mailing, ac- 
quérir de solides connaissances dans le 
traitement de 


(2 jours, 850.00 FHT-jour) 


26427-07-85, 
21&22-09-88 


Prectionnement à LOCOSCRIPT 
et maîtrise de LOCOMAIL: 

Objectifs: utiliser parfaitement toute la 

puissance de LOCOSCRIPT 2 avec 


menis types avec calculs, gestion opti- 
misée de mise en place de documents. 
(1 jour, 950.00 FHT) 


PCW 8256-8512: 28-07-88 et 29-09-S8 
PCW 9512: 29-07-88 et 30-09-88 


L: gestionnaire DBASE IT 

Objectifs: acquérir l’ensemble des no- 
tions permettant une mise en place de 
base de données sur le PCW avec le lo- 
giciel DBASE IT. Introduction à la pro- 


Mirise de LOCOSCRIPT 2:(PCW L: Een en PASCAL sur 


pbs maîtrise du langage PAS- 
CAL avec syntaxe, commandes, struc- 
tures… Méthodes de programmation 
structurée. Mise en place d’un gestion- 
naire évolué sur PCW. 

(4 jours, 850.00 FHT-jour) 


dates: dit 29-08-88 au 01-09-88. 


ess JUNICR PCW. 
ifs: au sein d’un atelier de 8 


jeunes au maximum avec un animateur 
dynamique, donner aux jeunes les élé- 
ments pour découvrir le PCW avec un 
regard pas seulement ludique. Initiation 
au PCW. Un cours de professionnels 
réserve pour les jeunes de 8 à 16 ans. 
{par après midi de 4 heures, 500 FHT) 


dates: régulièrement les samedis après- 
rtidi 


documents sur PCW 


29&30-08-88 et 


ALTITUDE XXI organise également 
des séminaires. de formation sur maté- 
riel PC sur lensemble, des logiciels 
standards, langages ou méthodes. 


dates: 18&19-07-88, 22&23-08-88 et | grammation structurée et aux outils d’a- | RENSEIGNEMENTS. L 
13&14-09-88 nalyse. Anne Marie MALLET 
(2 jours, 950.09FHT-iour) au 43 56 05 50. 


dates: IS& 19-07-88 et 26&27-09-S8 


LOCOMAIL. Programmation de docu- 


Altitude-XXI, BP 255, 75424 Paris Cedex 11. 


LOGIGS » x x x x + + 


Les clés de l'efficacité 


Avec une gamme de 
produits fiables et 
renommés, LOGICYS est 
la solution à vos 
problèmes de gestion. 
Grâce à des milliers de 
programmes diffusés, 
vous alliez sécurité 

et efficacité. 


LOGICYS 61/69 RUE CAMILLE 
PELLETAN 


33150 CENON 
él. : 56 40 94 75. 


ALIENOR Comptabilité générale ..... 890*F HT 
CRESUS Lie ROSES DORE ITS 990 FHT 
TALOS Devis / Situation ........ 1680 FHT 
DAMOCLES Facturation / stocks ..... 1480*H HT 


* Fonctionne également sur 9512 


Pour recevoir une documentation sur 
l'ensemble des produits LOGICYS, 
veuillez retourner le bon ci-joint. 


Nom 
Prénom 
Adresse 


Ville Code Postal 





DISPONIBLE SUR PC ET COMPATIBLES 


es 


| 











Tout 
sur votre personnalité. 


ASTRO 1 


e Carte thème de 
naissance 

e Carte du ciel de 
naissance avec maisons, 
signes, planètes et 
aspects majeurs 

e Interprétation du thème 
de naissance 

e Personnalité profonde et 
ambition 

e Fichier de plusieurs 


centaines de personnes. 
tv 








Sachez ce que l'avenir 
vous réserve. 


ASTRO 2 
Comme ASTRO 1 avec en 
plus : 


e Calcul et édition des 
révolutions solaires 
année par année 


e Carte du ciel de chaque 
Révolution solaire 


e Interprétation du 
potentiel de l'année : 
Amour, argent, travail, 
santé, etc. 

NI 









La version complète 

des initiés. 

ASTRO 3 

Version incluant ASTRO 2 

+ ASTRO COUPLE avec en 

plus : 

e Révolutions lunaires 

e Directions Primaires 
{avec pôles des planètes) 

e Directions Progressées 
et Symboliques 


e Calcul du Maître de 
Nativité selon la méthode 
de Volguine. 

en) 


X 





à 


Découvrez 

votre entourage. 
ASTRO COUPLE 
e Carte du ciel composite 
e Aspects planétaires 

e Comparaison des thèmes 


e Interprétation des 
relations du couple 
(plusieurs pages) 


y COUPLE 


CHEZ VOTRE REVENDEUR AGREE DDI (1) 48.67.28.44 + 
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Quand un restaurateur voit défiler 
près de 1000 clients par jours, sert 
plusieurs centaines de milliers de piz- 
zas annuellement et fait des millions 
de chiffre d'affaire en liquides, 
chèques, cartes bleues et tickets res- 
taurant de toutes sortes, on imagine 
aisément qu'une gestion rigoureuse 
s'impose et que l'ordinateur peu jouer 
un rôle de premier plan grâce à la foi 
et surtout au travail d'une équipe 
motivée dont l'histoire mérite d'être 
conté… 





367000 Pizzas vendues en 1987 par cette seule pizzeria alors que le groupe en 
compte 211. 


PIZZA DEL ARTE : L'ITALIENNE DU GROUPE ACCOR 


Première chaîne européenne d'hotellerie/restauration, le Groupe ACCOR 
abore d'autres brillants étendards : 
Restauration: 
CHURRASCO, FREE-TIME, COURTES PAILLE, BOEUF JARDINIER, 
ARCHE, etc... 
Hôtellerie: 
NOVOTEL, MERCURE, IBIS, FORMULE 1, etc... 





nitialement, les comptes journaliers étaient fait 
manuellement. Chaque serveur apportant, son 
service teminé, l'ensemble des titres de règle- 
ment dont les clients l'avait abreuvé. En corréla- 
tion avec la caisse enregistreuse, les chiffres devaient 
coïncider. C'est souvent après de nombreuses vérifica- 
tions que les comptes tombaient justes et on recommen- 
çait l'opération avec chacun des serveurs... 
Mais le calvaire ne s'arrétait pas là! Il fallait ensuite 
regrouper chacun des titre de règlement par catégorie, 
chèque avec chèque, tickets restaurant à 23 francs avec 
tickets restaurant à 23 francs (il y a environ 10 types de 
tickets!), etc, etc, pour arriver au suprême résultat : 
Recette = titres de paiement. En cas d'inégalité, il ne 
restait qu'a recompter... 


PIZZA DEL ARTE 
21 Restaurants sur toute la France. Ambiance italienne symbolisé par 
l'Arlequin de la comédia Del Arte. Situées dans des points stratégiques à 

grande fréquentation, elles se démarquent par un compromis qualité (pizza 

fabriquée devant le client) / prix modérés (50 à 70 Frs par personne). 
La Pizza Del Arte visitée pour cet article est située au Centre Commercial 

PARINOR à Aulnay sous Bois. 

Servant plus d'un millier de clients par jour, elle a vendu 367000 pizzas en 1987. 


l'achat du matériel et du logiciel: "Pensez-vous une 
solution à moins de 6000 Francs, comment refuser ?" et 
sur ces bonnes paroles, le PCW 8512, fait son entrée, 
accompagné d'un MULTIPLAN, choisi comme semblant 
être capable de traiter leurs problèmes... 


Une fois ce charmant travail réalisé, il fallait encore 
déterminer la part du service devant être redistribué au 
personnel et reporter l'ensemble de ces éléments dans 


un compte rendu de gestion transmis au siège pour qu'il 
procède à l'analyse. 

En résumé, on peut avouer qu'il s'agissait bien d'un tra- 
vail considérable, fait à la main, avec en premier plan 
une bonne vieille calculatrice. Que d'efforts et de temps 
perdus à une époque où l'ordinateur est sensé venir au 
secours de tous... 


C'est exactement ce que pensa Giuseppe PELLEGRINO, 
maître d'hôtel et PCWiste à ses heures perdues. 
Soumettant l'idée à son directeur, Monsieur DURACHER, 
elle suscite l'entousiasme de ce dernier qui autorise 


Ainsi, main dans la main, ils montent l'application. 
Feuille après feuille, le programme se construit et, à 
coup de liaison XTERNE (ordre MULTIPLAN de trans- 
fert de données d'une feuille à l'autre), l'application 
devient capable de ventiler tout les résultats utiles en 
somptueux états clairs et bien plus lisibles que la suc- 
cession de stylos et de pattes qui les faisaient avant. 


Mais cela ne se fit pas en deux jours. Six mois de travail 
furent nécessaire pour, non seulement, réaliser l'applica- 
tion complète, mais aussi pour en préparer l'utilisation 
par chacun des maîtres d'hôtel succeptibles de l'utiliser 
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Giuseppe PELLEGRINO: 
"Le seul reproche que 
l'on m'a fait était de tout 
le temps vouloir amélio- 


rer … ! 


Et voilà le coupable ! 
Pris en flagrant délit de 
Multiplannage, il ne 
cache même pas un 
étrange pavé numérique 
adapté pour la circons- 


tance … 


car, contrairement à Monsieur PELLEGRINO , ils n'y 
connaissaient rien! 


Les solutions furent trouvées. Un fichier de lancement 
PROFILE.SUB devait veiller à la redéfinition du clavier 
en transformant le pavé numérique en clavier de calcu- 
latrice compréhensible par tous puis il devait transférer 
fichiers et programmes utiles et lancer MULTIPLAN sur 
la feuille de saisie à partir de laquelle chacun pourrait 
facilement travailler et de laquelle toutes les données 
utiles allaient être extraites par des sous-tableaux réca- 
pitulatifs. 





On aurait pu penser que la faible capacité du logiciel 

(16 Ko par feuille) aurait posée problème et Monsieur 
PELLEGRINO nous rassure immédiatement : "Ce défaut 
était en fait un avantage. D'abord il permettait d'avoir des 
feuilles limitées en informations utiles à l'utilisateur, ce der- 
nier n'ayant pas forcément besoin d'avoir accès à l'en- 
semble de l'application. Chez nous c'est le cas, chaque 
maître d'hôtel est concemé par la recette du jour mais pas 
par la synthèse de gestion générale tant qu'elle n'est pas 
complètement éditée par mes soins”. 


On comprend tout ou presque. Monsieur PELLEGRINO 
mène parfaitement la barre de cette application mais on 
est en droit de se demander comment les néophytes 
réagirent lorsqu'ils durent affronter le programme pour la 
première fois ? Monsieur DURACHER est plutôt rassu- 
rant à ce propos : "Nous avons mis en place un plan- 
ning de formation. Ni brusquerie, ni précipitation pour 





que tout se passe en douceur et ce füt la bonne métho- 
de. Non seulement chaque maître d'hôtel utilise le pro- 
gramme avec facilité mais de plus, l'apprécie pour la 
sécurité qu'il apporte. Mais nous avons été plus loin; le 
PCW est aussi devenu notre correspondancier, plus 
question d'utiliser de machine à écrire, pour preuve, 
nous venons d'en acheter un second pour ne faire que 
du courrier!” 


Constatant un tel succès, la question qui saute à l'esprit 
est évidemment de penser à d'autres applications pour 
lesquelles le PCW pourrait encore mieux aider à la ges- 
tion d'ensemble et là encore, Monsieur DURACHER est 
très précis : "Pour le stock c'est hors de question tant 
qu'un économe n'en aura pas la charge complète, hors 
de cela, il est impossible de contrôler convenablement 
les flux de marchandises autrement que par des ratios 
sur la masse des entrées et le nombre de plats vendus. 
Enfin, la gestion du personnel pourrait faire l'objet d'un 
traitement mais d'une façon un peu surprenante. S'il et 
vrai que cette partie est aussi traité par notre siège, tout 
le dialogue se passe par minitel et cela revient cher. 
Nous nous connectons par le biais du 3614 et nous 
immobilisons un précieux temps pour saisir les informa- 
tions sur les horaires du personnel et autres informa- 
tions utiles. Là, nous pourrions améliorer et je ne trahi- 
rais aucun secret en avouant que l'automatisation des 
appels sera bientôt confié à un MYNEA sur lequel 
Monsieur PELLEGRINO se penche avec la même pas- 
sion que celle qu'il a mise en oeuvre pour nos syn- 
thèses de gestion". 


ais alors, que fait le siège ? reste- 
il insensible à tant de perfectionne 
ment ? 


"Pas du tout”, répondent nos coéquipiers, "la qualité de 
nos états est particulièrement appréciée et d'autres res- 
taurants du groupe sont avertis de l'avancement de nos 
travaux. Nous n'hésiterons pas une seconde à les aider 
dans la même démarche. À ce propos, la volonté de la 
direction est très nette quand à son influence, elle 
entend que chaque unité soit indépendante et s'organi- 
se comme bon lui semble pour fournir ses états de ges- 
tion. Il n'est pas question d'imposer des matériels ou 
des logiciels qui risqueraient d'être inadaptés. 
N'oublions pas que nous sommes avant tout restaura- 
teurs et non pas informaticiens!". 

Quelle sagesse ! On comprend alors ce qui se passe à 
l'échelon de chaque restaurant. Sous l'impulsion d'une 
ou plusieurs personnes compétentes, l'ensemble de 
l'équipe vient à l'informatique par l'intérieur et forcément, 
ça passe tout seul. C'est astucieux et bien moins coû- 
teux que des choix issus d'un bureau ou les réalités 
quotidiennes sont souvent oubliées au profit d'investis- 
sements imposés et pas toujours adaptés. 


La conclusion de cette expérience est particulièrement 
enrichissante. Initiative, travail d'équipe et temps ont 
permis d'énormes progrès à un coût proportionnellement 
dérisoire. Plus, elle a fait rentrer de nouvelles méthodes 
de travail avec une douceur exemplaire et tous les inté- 
ressés attendent avec impatience que le PCW en fasse 
encore plus. Alors que demander de mieux ? Rien, ou si: 
une pizza Quatre Saisons avec beaucoup de fromage! 
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LE BASIC FACILE 


DE DISQUETTES 


Après avoir allumé votre PCW et charg 





é BASIC, qui d'entre vous ne s'est pas trouvé 


dans l'embarras pour retrouver une application endormie au fond d'une disquette 
(laquelle ?), sous un nom trés étudié (lequel ?) au milieu d'une foule innommable de 
fichiers, programmes et utilitaires aux noms les plus évocateurs les uns que les autres... 





FONCTIONNEMENT DU 
PROGRAMME. 


Après avoir exercé vos talents de dactylo sur la frappe du pro- 
gramme complet, ou mieux, dès réception de la disquette four- 
nie par l'ECHO, vous commencez par lancer le BASIC à partir 
du CP/M (voir annexe page 64). 

Lorsqu'il vous répond Ok, vous lancez le programme par RUN 
"MENU"<RETURN». 

Vous aurez choisi de préférence une disquette comportant 
déjà d'autres programmes et fichiers afin de pouvoir tester tout 
de suite les possibilités de cet utilitaire. 

Après quelques secondes de patience, vous voyez s'afficher à 
l'écran quelque chose qui ressemble fortement à la figure de la 
page suivante, avec : 


1 
- sur la 1/2 partie supérieure de l'écran l'ensemble des pro-  ! 
grammes BASIC se trouvant sur la face active de votre dis- 
quette, | 
- Sur la 1/2 partie inférieure, l'ensemble des possibilités du 
logiciel que nous allons reprendre une par une, | 
- entre ces deux blocs, une ligne en inversion vidéo vous 
affiche le texte d'identification du programme qui se trouve 
également en inversion vidéo dans la partie supérieure. | 


Au lancement de MENU, c'est toujours le premier programme 
de la liste sur lequel le curseur se trouve. 

Pour en sélectionner un autre, il vous suffit de vous déplacer 
tout naturellement à l'aide des flèches de direction. 


Comme c'est la première fois que vous utilisez ce logiciel, tous 
vos programmes génereront le message "Identité non défi- 
nie”. 


Voici maintenant les différentes possibilités de ce logiciel dans 
l'ordre de parution dans la partie inférieure de l'écran : 





1) Pour consulter une autre disquette : 
Tapez sur <EXIT>, le programme demande confirmation et 
après celle-ci, vous pouvez changer de disquette. Les opéra- 
tions recommencent au point où vous les avez laissées, mais 
avec une nouvelle liste de programmes affichés en haut de 
l'écran. 

2) Pour consulter la liste des fichiers 
NON BASIC : 


Tapez sur la touche <F> (F comme fichier). 

Après quelques secondes, la partie supérieure de l'écran 
affiche la liste des fichiers NON BASIC auxquels vous pouvez 
adjoindre une identification, comme pour les programmes 
BASIC. 

Vous remarquerez que la partie inférieure de l'écran s'est légè- 
rement modifiée : 

- d'une part, la deuxième ligne du menu permet de réafficher 
les programmes BASIC en tapant <P> (P comme program- 
me), 

- d'autre part,les fonctions de lancement et de chargement qui 
étaient possible avec les programmes BASIC, sont suppri- 
mées. Car comme vous le savez, il est impossible de lancer 
l'exécution d'un fichier texte. 


NOTA : Vous aurez la surprise de voir apparaître sur votre 
écran deux fichiers supplémentaires: MENU.DON qui contien- 
dra toutes les définitions que vous allez créer, et MENU.IND 
qui est un fichier index associé à MENU.DON. Ne les suppri- 
mez pas, tout votre travail serait à recommencer. 

3) Identification d'un fichier ou d'un 
programme. 

En tapant <ENTER> ou <RETURN> (mème signification en 
BASIC), la partie inférieure de l'écran vous permet de disposer 
d'une ligne de 80 caractères pour inscrire l'identification se 
rapportant au fichier ou au programme affiché en double 
brillance. 

A vous d'effectuer le bon choix avant de lancer cette option, 
grâce aux quatres flèches de déplacement. 

Après avoir encodé votre texte d'identification, vous pouvez 
valider votre réponse et revenir au menu principal par 
<ENTER> ou <RETURN3>. Vous voyez alors votre nouvelle 
définition s'afficher sur la ligne centrale de l'écran en double 
brillance. 

Lorsque vous avez identifié tous vos programmes, le simple 
déplacement des curseurs sur les titres de la partie supérieure 
vous permet de visualiser les définitions correspondantes sur 
cette ligne médiane. 

4) Liste des programmes ou fichiers 


sur imprimante. 

En tapant sur la touche <CANb, vous déclenchez l'impression 
de tous les programmes BASIC affichés, ou de tous les 
fichiers NON BASIC si vous êtes sur cette option. 

Ces listes, accompagnées de l'identification des programmes, 
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sont classées par ordre alphabétique, ce qui facilite les 
recherches ultérieures. 

5) Pour retourner sous CPM. 

Tapez tout simplement <C> (C comme CPM). 

6) Pour retourner sous BASIC. 

Faites tout aussi simplement <B> (B comme BASIC). 

7) Pour détruire un programme ou 
un fichier. 

Sélectionnez le programme à l'aide des curseurs, puis utilisez 
la fonction <CUT> pour détruire. Vous noterez que dans tous 
les cas, le logiciel vous demande confirmation de votre choix, 
ce qui est préférable lorsqu'il peut s'agir de la destruction de 
plusieurs heures de travail. Votre confirmation se fera par <O>, 
ou <N> pour annuler. 

8) Pour charger un programme BASIC. 
Choisissez le programme avec les curseurs, puis en tapant sur 
la touche <COPY>, le logiciel charge votre programme en 
mémoire. Vous pouvez ensuite le modifier, le lister ou le lancer 
par RUN, mais pour cela, mieux vaut utiliser la fonction 
suivante : 

9) Pour lancer un programme BASIC. 
Choisissez le programme avec les curseurs, puis en tapant la 
touche <RELAŸY», le logiciel lance automatiquement votre pro- 
gramme. 

10) Pour changer de lecteur. 

Pressez la touche <D> qui fera passer de A vers B, de B vers 
M et de M vers A. Si vous n'avez qu'un lecteur de disquette, le 
drive À sera considéré comme le drive B. Il faudra donc 2 
pressions de <D> pour arriver sur M. 

11) Pour changer de USER. 

Pressez <U> pour passer d'un USER à l'autre (de 0 à 15). 


CONCEUSION 


Enfin, dernier tuyaux, si vous décidez de recourir régulière- 
ment à MENU.BAS pour le lancement de vos programmes 
basic, je vous conseillerai d'en faire une copie sur toutes vos 
disquettes. Il faudra simplement ajouter l'instruction RUN 
"MENU" en guise de conclusion à tous les programmes que 
vous lancerez à partir du programme. 


Consulter une autre disquette: 

Afficher les fichiers non BASIC: 

Changer de drive: 

Changer de user: ; | 
riner toutes les identités: 


Retourner sous 
Retourner sous 


Détruire un fichier ou programe: 
Charger un programe: 

Lancer un programme: 
Créer ou aodifier une identité: 


BASIC: 





10 ERORR RIRE ARR ARR HR RAR IR A KR KR 


20 ! MENU. BAS 

30 ‘ Ecrit par P. CORBARA 

40 pour l'ECHO DU PCH 

50°" LOGI'STICK 88 

60 DRRRRRERERERRRRÉRÉRRRERERKERRRREK 
10 ‘----INITIALISATION 


80 OPTION BASE l' (P9) 
90 BUFFERS 10:DRIVE$="A" :USER$="0":ESC$=CHRS (27) :XX$="Etes-v 


Choisissez avec les curseurs puis (Æl 
Choisissez avec les curseurs puis na: 
Choisissez avec les curseurs puis En 


Choisissez avec les curseurs puis (AU 


ous d'accord pour “' (NR) 

100 DIM N$(13,5),N(13,5),0$(65)' (59) 

110 CLS$=ESCS+"E"+ESCS+"H"! (2H) 

120 BIP$=CHR$(7)' (NS) 

130 VIS=ESC$+"p":VNS=ESC$+"q"" (8) 

140 C1$=ESCS+"e":COS=ESCS+" EF"! (5R) 

150 DEF FNPS(C, L)=ESCS+"Y"4CHRS (32+L)+CHR$(32+C)' (06) 

160 FENOS=ESCS+"y"" (OM) 

170 FEN1S=ESCS+"X"4CHRS (32) +CHR$ (32) +CHRS(49)+CHRS(121)' (AO 


180 FEN2$=ESCS+"X"+CHRS (50) +CHR$ (32) +CHR$ (45)+CHRS (121)! (9Y 
) 

190 PRINT COSFENOSCLSS:F=1' (5R) 

200 ‘----PROGRAMME PRINCIPAL 

210 !------ LECTURE DE TOUS LES FICHIERS 

220 OPTION FILES USERS$+DRIVES:IF FINDS("MENU.DON")="" THEN C 
REATE 1,"MENU.DON", "MENU. IND",2,82 ELSE OPEN "K",1,"MENU.DON 
","MENU.IND",2' (3P) 

230 FIELD 1,80 AS A$' (QF) 

240 PRINT FENISCLSSFNPS (20,8) VEUILLEZ 
NTER . “1 (60) 

250 M1=0:FOR I=1 TO 65:0$(I)="":NEXT l' (KI) 
260 M1=M1+1:Z$=FINDS("*.*",M1)' (75) 

270 IF Z$="" THEN 280 ELSE 0$(M1)=2$:GOTO 260! (Sx) 

280 M1=M1-1:GOSUB 1310! (XC) 

290 ‘----SELECTION FICHIERS OU PROGR. BASIC 

300 GOSUB 710! (12) 

310 M=0:FOR I=1 TO 13:FOR J= 1 TO 5S:N$(I,J)="":N(I,J)=0:NEXT 
J:NEXT I' (W5) 

320 FOR I=1 TO Ml' (NO) 

330 IF F=1 AND RIGHTS (0$(1),4)=".BAS" THEN 350! (UG) 

340 IF F=2 AND RIGHTS (OS (I),4)<>".BAS" THEN 350 ELSE 380! (8 

R) 

350 M=M+1' (CR) 

360 L=INT((M-1)/5)+1:C=M-5*(INT((M-1)/5))' (P6) 

370 N$(L,C)=0$(I):N(L,C)=M' (34) 

380 NEXT I' (F7) 

390 GOSUB 590' (JE) 

400 ‘----TRAITEMENT DE LA DEMANDE 

410 C-CA:L=LA' (KP) 

420 K$=UPPERS (INKEYS$):IF K$="" THEN 420 ELSE K=ASC(K$)' (Bl) 
430 IF K=27 THEN CLOSE 1 ELSE 450! (BJ) 

440 PRINT FENLS$CLS$SFNPS (10,8)"Changez le disc puis tapez sur 
une touche quelconque":K1$=INKEYS$:IF K1$="" THEN 440 ELSE F 
=1:GO0TO 210' (YN) 

450 IF K$="D" THEN GOTO 1470! (3K) 

460 IF K$="U" THEN GOTO 1490! (44) 

470 IF K$="F" AND F=1 THEN F=2:GOTO 290' (JT) 

480 IF K$="P" AND F=2 THEN F=1:GOTO 290' (K4) 

490 IF K=13 THEN GOSUB 1100:GOSUB 710:GOTO 420! (YC) 

500 IF K=8 THEN GOSUB 1190' (26) 

510 IF (K=48 OR K=18) AND F=1 THEN GOSUB 1360:IF K1$="O" THE 
N CLOSE 1:PRINT C1S$FENOSCLS$:RUN N$(LA,CA)' (B0) 

520 IF K=23 AND F=1 THEN GOSUB 1360:IF K1$="O" THEN CLOSE 1: 
PRINT CISFENOSCLSSNS (LA, CA)" a été chargé à votre demande... 
":LOAD N$(LA,CA)' (T0) 

530 IF K=21 THEN GOSUB 1000:IF K1$="O" THEN 240! (VK) 

540 IF K$="C" THEN GOSUB 1360:IF K1$="O" THEN CLOSE 1:PRINT 
CISFENOSCLS$:SYSTEM' (HO) 

550 IF K$="B" THEN GOSUB 1360:IF K1$="O" THEN CLOSE 1:PRINT 
C1SFENOSCLS$"Vous etes sous BASIC...":END' (FY) 

560 GOSUB 860! (JD) 

570 GOTO 420' (H7) 

580 ‘'----SOUS-PROGRAMMES 


PATIE 





PROGRAMMATION BASIC - L'ECHO DU PCW N° 21 






Ë LE BASIC FACILE 


590: ==" SUBR AFFICHAGE PROGRAMMES (FEN1) 

600 PRINT FENISCLS$' (UV) 

610 IF F=2 THEN 650' (PX) 

620 PRINT FNP$ (0,0) "DRIVE/USER : "DRIVES$"/"USERS' (56) 

630 IF M=0 THEN PRINT FNP$(20,18)"Il n'y a aucun programme B 
ASIC sur cette face de disquette":RETURN ELSE PRINT "Nombre 
de programmes BASIC: "M' (LF) 

640 GOTO 660' (HB) 

650 IF M=0 THEN PRINT FNP9(20,18)"I1 n'y a aucun FICHIER NON 
BASIC sur cette face de disquette":RETURN ELSE PRINT “Nombr 
e de FICHIERS NON BASIC: "M' (OR) 

660 CA=1:LA=1:CU=1' (SJ) 

670 FOR L=1 TO 13:FOR C=1 TO 5' (67) 

680 IF N(L,C)=0 THEN RETURN ELSE GOSUB 970! (U4) 

690 NEXT C:NEXT L' (RQ) 

700 RETURN ‘ (HJ) 

710 '----SUBR AFFICHAGE MENU (FEN2) 

720 PRINT FEN2SCLS$' (UZ) 

730 PRINT FNP$(5,1) "Consulter une autre disquette:"SPACES (9) 

VIS$"< EXIT D"VNS' (KD) 

740 IF F=1 THEN PRINT FNPS(5,2) "Afficher les fichiers non BA 
SIC:"SPACES (7) VIS"< F D"VNS' (TT) 

750 IF F=2 THEN PRINT FNP$(5,2) "Afficher les programmes BASI 
C:"SPACES (9)VI$"< P >"VNS' (SK) 

760 PRINT FNP$(5,3) "Changer de drive:"SPACES (22) VIS$"< D >"VN 
$' (N6) 

770 PRINT FNP$(5,4) "Changer de user :"SPACES(23)VIS$"< U >"VNS 
" (M3) 

790 PRINT FNP$(5,5) "Imprimer toutes les identités:"SPACES (9) 

VIS"< CAN >"VNS' (HH) 

800 PRINT FNPS(5,6) "Retourner sous CP/M:"SPACES(19)VIS"< C > 
"VN$' (VD) 

810 PRINT FNP$(5,7) "Retourner sous BASIC:"SPACES (18) VI$"< B 

>"VNS' (X0) 

820 PRINT FNP$(5,9)"Détruire un fichier ou programme: "SPACES 
(6)"Choisissez avec les curseurs puis "VIS$"< CUT >"VNS' (DN) 

830 IF F-1 THEN PRINT FNP$(5,10) "Charger un programme :"SPACE 

$(18) "Choisissez avec les curseurs puis "VIS$"< COPY >"VNS! { 

EA) 

840 IF F=1 THEN PRINT FNPS(5,11} "Lancer un programme :"SPACES 
(19)"Choisissez avec les curseurs puis "VI$"< RELAY D"VNS' ( 

E8) 

845 PRINT FNPS(5,12) "Créer ou modifier une identité:"SPACES( 

8)"Choisissez avec les curseurs puis "VI$"< RETURN >"VNS' (H 

1) 

850 RETURN ‘ (HP) 

860 ‘----SUBR TEST DE POSITION 

870 IF K=51 OR K=-6 THEN C=CA+l' (6Y) 

880 IF K=1 OR K=49 THEN C=CA-l' (73) 

890 IF K=30 OR K=-46 THEN L-LA+l' (BV) 

900 IF K=31 OR K=53 THEN L-LA-l' (80) 

910 IF C>5 OR C=0 OR L=0 OR L>13 THEN 990' (KA) 

920 MA=N(L,C):IF MA=0 THEN 990 ' (91) 

930 '----SUBR D'AFFICHAGE 

940 CO=(CA-1)*18:LI=LA+2' (00) 

950 PRINT FENISFNPS (CO, LI)NS (LA, CA)' (Ll) 

960 CA=C:LA=L:CU=MA' (KG) 

970 CO=(C-1)*18:LI=L+2' (X5) 

980 IF N(L,C)=CU THEN PRINT FENISVISFNPS (CO, LI) NS (L, C) VN$:G0 

SUB 1040:RETURN ELSE PRINT FENISFNPS (CO, LI)N$(L, C) :RETURN 
(HB) 

990 PRINT BIPS; :C=CA:L=LA:RETURN ' (LD) 

1000 '----SUBR DE SUPRESSION 

1010 GOSUB 1360:IF K1$="N" THEN RETURN ' (N?) 


1020 KILL N$(LA,CA):IF CLE=0 THEN CLE=DELKEY(1,0)' (51) 
1030 RETURN ! (IS) 

1040 ‘----SUBR AFFICHAGE IDENTITE 

1050 CLE-SEEKKEY (1,0,1,NS(LA,CA))' (F2) 

1060 IF CLEC>0 THEN PRINT FENISVISFNPS(5,15)" Identité non d 

éfinie"SPACES (59) VN$:RETURN ' (0B) 

1070 GET l' (D5) 

1080 PRINT FEN1SVISFNP$S(5,15)" "AS" "VNS' (LO) 

1090 RETURN ' (IY) 

1100 '----SUBR CREATION OU MODIF D'IDENTITE 

1110 PRINT FEN2SCLS$FNPS (5,3) "Inscrivez la nouvelle identité 
ci-dessous, sinon tapez < RETURN >"! (KW) 

1120 PRINT FNP$(5,5)VISSTRINGS (82,32)! (MY) 

1130 PRINT FNP$(6,5)VISCI$; : LINE INPUT "",TEXS:PRINT COSVNS' 
(NP) 

1140 IF TEX$="" THEN RETURN ‘ (61) 

1150 LSET A$=LEFTS(TEXS, 80)! (62) 

1160 IF CLE <>0 THEN C=ADDREC(1,2,1,N$(LA,CA)) ELSE PUT l' ( 

CI) 

1170 PRINT FENLSVISFNPS(5,15)" "A$" "VNS' (LO) 

1180 RETURN ‘ (IY) 

1190 '----SUBR D'IMPRESSION D'IDENTITES 

1200 LPRINT CHR$(15); ‘ (WF) 

1210 IF F=1 THEN LPRINT " *** LISTE DES PROGRAMMES BASIC " 
; ELSE LPRINT " *** LISTE DES FICHIERS NON BASIC ";' (OU) 

1220 LPRINT "(PAR ORDRE ALPHABETIQUE) ET DE LEUR IDENTITE * 

*4"1 (T1) 

1230 LPRINT ‘ (IN) 

1240 FOR L=1 TO 13:FOR C=1 TO 5' (7D) 

1250 IF N(L,C)=0 THEN LPRINT :RETURN ‘ (MO) 

1260 LPRINT N$(L,C)" :"SPACES(5);' (DB) 

1270 CLE-SEEKKEY (1,0,1,N$(L,C))' (CH) 

1280 IF CLE<>0 THEN LPRINT "Identité non définie":GOTO 1300" 
(06) 

1290 GET 1:LPRINT A$' (UT) 

1300 LPRINT :NEXT C:NEXT L' (71) 

1310 '----SUBR DE MISE EN ORDRE ALPHA 

1320 COM=0:FOR I=1 TO M1-1:1F O$(1)>0$(1+1) THEN SWAP O$(I), 

O$(I+1):COM=COM+1' (9F) 

1330 NEXT I:IF COM=0 THEN RETURN ! (GZ) 

1340 COM=0:FOR I=M1 TO 2 STEP -1:IF O$(I)<OS(I-1) THEN SWAP 

O$(I),0$(I-1):COM=COM+1' (IC) 

1350 NEXT I:IF COM=0 THEN RETURN ELSE 1320! (US) 

1360 ‘----SUBR DE CONFIRMATION 

1370 IF K$="B" THEN MESS$=XX$+"retourner sous BASIC ?  (O/N) 

us (KY) 

1380 IF K$="C" THEN MES$=XXS+"retourner sous CP/M ?  (O/N)" 
! (IP) 

1390 IF K=21 THEN MES$=XX$t" supprimer "' (QE) 

1400 IF K=48 OR K=18 THEN MES$=XX$+"lancer "' (TZ) 

1410 IF K=23 THEN MES$=XXS+"charger "' (KM) 

1420 IF K=27 THEN MES$=XX$+"changer de disquette ?"! (9) 

1430 IF K$C>"B" AND K$C"C" THEN MESS=MESS#N$S(LA,CA)+"  (O/N 

22" (67) 

1440 PRINT FENISCLSSFNP$ (10, 8)MESS:FOR I= 1 TO 200:NEXT I:Kl 

S=UPPERS (INKEYS):IF K1$="" THEN 1440! (66) 

1450 IF K1$="N" THEN GOSUB 590:RETURN' (M7) 

1460 IF K1$="O" THEN RETURN ELSE 1440! (JF) 

1470 CLOSE:F=1:IF DRIVES="A" THEN DRIVES="B" ELSE IF DRIVES= 

"B" THEN DRIVES="M" ELSE DRIVES="A"! (6E) 

1480 GOTO 210' (IH) 

1490 CLOSE: F=1 : USER=VAL (USERS) :USER=USER+1:1F USER=15 THEN U 

SER=0' (86) 

1500 USER$=STRS (USER) :GOTO 210' (EH) 





PROGRAMMATION BASIC + L'ECHO DU PCW N°21 RS | 


1 ère MONDIALE ! 
CONCOURS 





: nc-Mesnil 
CAPN Paris e Bonaparte”, et chacun peut l'obtenir par rt demande écrite, accompa- 
gnée de 3 timbres à 2.20 F pour participation aux frais d'expédition. 


Les EDITO sont à envoyer avec le coupons, ci-joint, à l'adresse suivante : 
LOGI'STICK Edition 
"CONCOURS EDITO" 
CAPN - LE BONAPARTE - BOITE 49 
93153 LE BLANC-MESNIL CEDEX 


nn 00000000000000000000000000000 00000000 000000000 000000 0000000000 00000000 000000000000000000 0000000 000000000 00000000 000000000000 000000 000 000000000000 000000 000000000000 000 00 000 000 000 000 000 000 000 000000000000 000 00000000 00000 SNS ND NS 0 SNS NN D no SNS nn 


Je désire participer au “concours EDITO”, voici mes coordonnées : 


MAN serre nee msn PO sales 
nat opens niernp use eat 
nan sache | DIR ne Ra treatment 
eue ne res IÉRÉPRÔNE ennemies 


et j'en accepte le règlement : Signature (ou celle des tuteurs pour les participants mineurs) 
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PÉRRSSSERÉS SES ER RES SES EEE + 


ie, 


re 


PE 


| 5 


PE 


Ë 


: 


is 
one 


SR 
D 


Ë 
È 
| 


2 
gp 


REC CE LE CCC ELLE CCC CLS CL LLC 
FE 
Er 


M 
4 
De 


2 


& 
Ÿ 


Fe 





ÉSS 


résent quest 


nt fai 


pe En 


I Voulez-vous plus, moins ou autant de... 
PLUS PAREIL MOINS 
1 DBASE Q Q Q 
Î MULTIPLAN Q Q Q 
D BASIC Q Q Q 
l Loco Q Q Q 
L PASCAL Q Q Q 
D ASSEMBLEUR Q Q Q 
TELEMATIQUE Q Q Q 
j PROGRAMMES Q Q Q 
q CONCOURS Q Q Q 
BANC D'ESSAI Q Q Q 
j INITIATION Q 0 a 
[ EXCLUSIFS Q Q Q 
ee: Q Q Q 
: Notez l'ECHO 
I MAUVAIS MOYEN BON 
MAQUETTE ET PRESENTATION Q Q Q 
q CONTENU REDACTIONNEL Q Q 
[ STYLE D'ENSEMBLE Q Q Q 
[ COUVERTURE Q Q Q 


Notez de I àS les thèmes que vous préféreriez voir traiter. 
il 


és GESTION/COMPTABILITE sm JEUX 
D SCIENTIFIQUE COMMUNICATION 
1 … TECHNIQUE/ PROGRAMMATION  … D.A.O 
D. EDUCATIF PAO. 
- Si ROBOTIQUE DOMOTIQUE 
Décidez du sort des rubriques habituelles... 
: INTERACTIF PETITES ANNONCES COURRIER 
I 
L ASUPPRIMER [] Q Q 
JA CONSERVER Q Q 
L AAUGMENTER Q Q 
JL AREDURE Q Q Q 


Le 












F#: 
He 96.2 Pr 


onnair 








FÉRRSS ES SERRES EP ER ER ES D EE à 8 ES SE RS EE EE EE EE & 














Se LS 
recevront un cadeau surprise... 






Merci de votre collaboration . 
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5 FES È 
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+3 FE 
“de : Et 
él À È È É 
SUMEtL Qre : es per 
Paméliar , peñsc 


LE Sur tous les numéros que vous avez lus quel a été selon vous : 1 
11 I 
LI Lémélleur ati: memes RU I 
11 ( 
| | 20000 00 00 00 00 00 20 000000 008 08 00.00 00 00 00 20 8000 20 08 00.00 00 00 20 2900 80 08 20 20 00 08 00 28 88 00 20 00 80 00 88 08 00 00 00 80 88 88 00 00 00 00 08 000000000000 0008 08 0000 (| 
Le plus mauvais article 
RE re TA Û 
: Utilisez-vous régulièrement des programmes donnés par l'ECHO ? : 
Q ou NON 
FR nina I 
1! I 
Dunes rene I 
1 Avez-vous d'autres ordinateurs ? o 
LL ( 
1 Q our Q NON Ù 
D Si oui lesquels - 
- Q PCou compatible CA Macintosh C1 AtaiST Cl Amiga 
Il RS ne Dal 
1 Lisez-vous I 
TL l 
( I Q svmM Q L'OI Q MICRO-SYSTEMES 1H 
Q AM-MAG Q cc Q PC Magazine 
QI AMSTRAD PC Magzine CÂ Autres Q Presse Anglaise : 
pE Votre plus gros reproche à l'ECHO DU PCW I 
L (| 
TL | 
ë | 
i | 
î | 
i I 
"1 I 
ÿ I 
j I 
I I 
Ç 
=. 
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I 
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FICHES TECHNIQUES - BON DE COMMANDE 










UALITE SUPERIEURE Les logiciels proposés dans cette rubrique sont de qualité supé- 
rieure. La suppresion de tout frais inutile tels que : packaging, 
promotion et intermédiaires, permet de les proposer à un coût 
défiant toute concurrence soit 150 F TTC pièce! 


Regroupé par domaine d'activité, chaque programme a fait ou fera l'ob- 
jet d'une fiche technique le décrivant. Ces fiches techniques sont 
publiées tous les mois et le numéro de l'ECHO contenant la fiche d'un 
produit se trouve dans la colonne “VU DANS ECHO N°" 
FAT Livrés sur une disquette avec tous les fichiers utiles à leur utilisation, 
ATIONNELS les EXCLUSIFS ont été testés avec une rigueur toute particulière et sont 
toujours accompagnés d'une notice permettant une prise en main rapi- 
de. 
- UBLIEZ PAS ! Ces logiciels sont de qualité professionnelle et le prix exceptionnel de 
‘ chacun n'est dû qu'à l'importante économie réalisée sur des frais sou- 
vent inutiles comparativement à l'intérêt qu'ils représentent pour les 
utilisateurs. 





Réf titre Objet Prix TTC VU dans ECHO N°... 
X 001 COMPTASS Gestion d'association 150 20 
X 003 GESTCOMPTE Gestion budgétaire 150 20 
X 005 GESTIT Gestion de titres pour sté 150 21 


VIE PRATIQUE 


Réf titre Objet Prix TTC VU dans ECHO N°... 

X 002 NOUMEROLOGIA Etude de la personnalité (numérologie) 150 20 

X 011 SUPER TURF 150 21 

X 012 GENEALOGIA 150 21 

PROGRAMMATION/UTILITAIRES 

Réf titre Objet Prix TTC VU dans ECHO N°... 

X 004 ROTAMAT Redéfinition de fonte pour ROTATE 150 20 

X 006 AIDECPM Version française de HELP 150 21 

X 009 PACK BASIC Basic étendu 150 21 

X 010 EDIT 2000 Editeur pleine page 150 21 

SCIENTIFIQUE/TECHNIQUE 

Réf titre Objet Prix TTC VU dans ECHO N°... 

X 007 ELECTRON Calcul d'amplificateurs 150 21 

JEU X 

Réf titre Objet Prix TTC VU dans ECHO N°... 

X 013 AVENTURES Conception de jeux 150 21 
REGLEMENT à l'ordre de LOG/!'STICK. NOM: sntrimenensnnsnnniuirt PRENOM rss 
CE BON DE COMMANDE TIENT LIEU DE 
FACTURE, GARDEZ EN UN DOUBLE POUR a DJ] OT D 
VOTRE COMPTABILITÉ. LA TVA INCLUSE 
DANS LE PRIX DE 150 F EST DE 23,52. PILE EEE EEE EEE EEE EEE EEE CEE EEE EEE EECERECEECEECCRERECRERCEECEEREEREEceEnEnnEEnenneEEERRENREnEREEREREEEEEEEEE 

CODE 55 VILLE ..semnramemsenmanmnendinnennatsemnme 

commande par la présente 
SIGNATURE : Les références suivantes É-- D +. = À 0 PR 
(celle du tuteur pour les lecteurs mineurs) 

au prix unitaire de 150 F TTC 

soit un total de LASO FE sms F + port ° 


© frais de port France Métropolitaine : 15,00 F 
Etranger et DOM-TOM (par avion) : 35,00 F 


COMMANDEZ PAR TELEPHONE AU (1) 46.65.44.55 CA manoar [j cop [] CHEQUE [] VISA/CARTE BLEUE 
OU PAR COURRIER EN RETOURNANT LE BON A 

LOGI'STICK CAPN LE BONAPARTE - N° ë ! 8 0 ! lidité / 

BOITE 49 - 93153 LE BLANC MESNIL CEDEX. LLLLILLIILILLILLLI validité ......../....... 
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GESTIT n'est pas un outil boursier en cela qu'il 
n'effectue aucune analyse de tendance ni gra- 
phique ni statistique. C'est un outil de gestion 
comptable précis qui compensera l'absence de 
relevés réguliers en matière de plus-values de la 
part de l'organisme gestionnaire des titres. 


GESTIT permet de saisir tous les mouvements au 
cours de l'exercice et d'en calculer les plus ou 
moins values, long et court terme. Il suffit, ensuite, 
de passer les écritures dans la comptabilité géné- 
rale d'après les éditions qu'il produit. 

Il faut noter également que les états édités par 
GESTIT seront très appréciés des commissaires 
aux comptes chargés de l'audit de la comptabilité 
et seront des justificatifs efficaces, sur le plan fis- 
cal, des éventuelles provisions comptabilisées par 
l'expert comptable qui aura, ainsi, un outil de déci- 
sion très détaillé. 


Une disquette pourra gérer 300 comptes de titres 
différents et 1000 enregistrements, soit la possibili- 
té de saisir, environ, une centaine d'achats par 
mois, ce qui représente déjà de grosses transac- 
tions pour un portefeuille. 


EN CONCLUSION 


GESTIT est un programme simple à manipuler et 
très précis dans son cheminement. Constamment 
aidé par les renseignements qu'il propose lors de 
l'utilisation, le manuel livré avec est presque inuti- 
le. Enfin d'un point de vue comptable, notons que 
le programme est déjà utilisé par de grosses 
sociétés dont il a obtenu les faveurs. 


culiers faisant de nombreu- 
tions boursières et dont les 
“sont gérés par un organisme 
e qui leur fournit des relevés 
Chats et de ventes périodiques. 
on seulement GESTIT gère la totalité 
des titres mais, de plus, Il établit de 

. précieux relevés dans lesquels figurent les 
- décomptes des plus-values réalisées à court 

et à long termes. 





ENREGISTREMENT DES ACHATS 
Reese D 


CRDITION )))) [= caracteres pica ©= caracteres condensés d 


NUMERO DU TLTRECS CHIFFRES ): 111 


DATE DE L'ACHAT JJ/RVAA; 16/ 10/E7 
NURBRE DE ILIRES ACHEIES :690-— 


PONTANL IUIAL DE L'ACHAT : 60500" 











LES EXCLUSIFS * L'ECHO DU PCW N°21 





FICHE TECHNIQUE N° 7 - ELECTRON 











RS 


de 6 duquel son prix est par- Ce logiciel résoud deux problèmes majeurs souvent posés lors 
ce cment dérisoire, ce programme des montages expérimentaux : 


Hfication est plus qu'un simple 
Hate + , Le temps, car le calcul d'amplis, si simple soit-il, n'est pas 
Fe ë Se PER PA INUS SR ECORSS chose facile Cela prend un nés cons et a 
RS Sÿ , Ê 
ol qui n'hésite pas à se mettre en une dose massive d'huile de coude pour trouver le meilleur 
quatre pour vous remémorer les bases compromis entre les inconnus et les éléments que l'on possède 
et les formules utiles à une mise au point (qui sont, faut-il l'avouer, pas toujours réalistes…). 


imum de vos circuits préférés. 
à La diversité des montages : A partir d'un montage de 


base bien connu, on calcule les éléments passifs et actifs de 
l'ampli pour passer à la pratique soit, montage et mise au point. 
Reprendre le montage de base à chaque fois pour en recalcu- 
ler les éléments est très long et très énervant. 


Donc, Le programme allège considérablement la tâche. Il est 
constitué en trois parties. 


Le générateur de symboles : Permettant de charger les diffé- 
rents symboles nécessaires aux schémas des montages. 


OBJET : CALCUL D'AMPLIFICATEURS 


COPCOCPPECECEEEES 


DOMAINE : TECHNIQUE/SCIENTIFIQUE La partie cours : Elle propose en plusieurs écrans (voir illus- 
tration) les généralités sur l'amplification. Elle est constituée de 


trois programmes dont chacun traite d'un sujet soit : Emetteur, 
base et collecteur. 


nn 000000000000000000000000006 000000 00800000000 000 000000060000000000000000000000000 00000000 00000 000000 000 00000000 00000000 060000000000 


000000000000000000000000 000000000000 00000000006 00000000 00000000200 000 00000000 000 00000000 000 00000000000 00000000 00000000000 0000000000 


La partie calculs : Elle permet de calculer les éléments incon- 
nus à partir de quelques éléments connus. Cette partie com- 
prend trois programmes distincts respectivement affectés aux 
calculs suivants : émetteur, base et collecteur. 


EN CONCLUSION 


0000000000000000000000000000000000000 00 0060000000060000000 000 00000000 000000000000 0000000 000000 nn nee 0000000000 





Plus qu'un investissement, ELECTRON est une affaire fanta- 


faplis continus: 

fnplis basses fréquences: 
fnplis noyennes fréquences: 
Aaplis hautes fréquences: 
faplis très hautes fréquences: Er À 
aplis ultra hautes fréquences: 


Caractéristiques idéales d'un ampli: 


"mms" 


Ed ed ot ed 04 


- Ap ) 10000 . . 
- fidélité (absence de distorsion) 
- pureté (absence de perturbations) 


Caractéristiques réelles d'un ampli: 


02 00 où one 00 o e œ 00 0 me qe 0 0 08 où En m0 de eu mn 00 mu 0 0 00 en @ cn où eme 


ue Se} le 





tisque digne des "EXCLUSIFS". Profitons de cette présentation 
pour en féliciter l'auteur dont le succès de 87 Ko bien tassés 
sera la moindre des récompences... 









[AM er 
AT=1j- las: 
1° 
[| L 
+ la 


ou 6 
AThrad=—-0,7=---0,7: 2,3"/4 - RIN cr = 1.5°/H 
»n L] 


Une autre solution plus précise: 
ATher x RThea 0.8 x # 
RD pad © "0 2 = 1.53 
P+ker LA] 


ke 
! 
: 
: 


ÊE 


> 
(A 
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Ce fichier n'est accessible que par l'intermédiaire 
du programme HELP.COM livré, lui-aussi, avec 
tous les PCW. Plusieurs dizaines de fonctions 
CP/M sont donc expliquées sans même ouvrir le 
manuel. L'organisation d'ensemble se fait à partir 
du nom des fonctions qui peut être suivi d'un com- 
plément d'informations relatives à certaines parti- 
cularités de l'instruction, voir des exemples d'utili- 


sation. 


EN CONCLUSION 


Particulièrement utile pour une utilisation intensive 
du CP/M, cette aide en français épargnera bien 
des tatonnements inutiles en des recherches sou- 
vent longues, et pas toujours fructueuses, dans le 
manuel livré avec nos PCW... 


HELP UTILITY UL.1 








QT n 

FR (COPY) PRINTER 
SET SET2AX80 
SH 





Lmmmmmmmmmmmmmm 


AUTEURS, PROGRAMMEURS, 


Pour passer l'épreuve du feu et mériter de faire partie 


Envoyer-nous vos MEILLEURES REALISATIONS, 
aussi bien logicielles que matérielles à : 


"LES EXCLUSIFS DE L'ECHO" 
CAPN - Le Bonaparte - Boîte 49 
93153 Le BLANC-MESNIL Cedex 


ERASE FILESPEC GENCOM 
HELP HEXCOM INITDIR LANGUAGE 
AC PALETTE Hg PATCH 
PU ME RK AUE 
SETDEF SETKEYS SETLST SETSIO 
SUBNIT TYPE USER 


des "EXCLUSIFS". 


Une seule solution : 


LOGI'STICK Edition 


Lesssessssssssss 


Fe 


. 









Se 


RS 


HELP) 5 


PAPER 
ATTRIBUTES 


Utiliser les attributs pour spécifier les caractéristiques du papier. 
Certains attributs en entrainent autosatiquenent d'autres, à aoins qu'il 
n'en soit spécifié autrement dans la nene commande. 


ATTRIBUT PARAMETRE  SIGNIFICATIONS et INPLICATIONS 
FORN LENGTH ixe ier à (n=6-99) 
M Ru HMS /PORE LE AuARCS DAS de PACE = 
CAP LENGTH n DRGE de BAS de PAGE geen 
umeprten mn Mar de LIGES/DRUE 6 or 9) 
Me A CM Mu PeRUP ra 
PAPER OUT DEFEAT s ACTIVE ou TIVE le PALPEUR FAURF) 
Mosssessnososceneseen se Pour papier RENE de? à Lina/tiits sé 
Je =[0, Das age =5, Li nche = 
ss TE à File, élec fin e Mie ON 
M OO EC our 
250, Bas de Page=3, Ligne/Inche =6 
, Île À file, dgtast fin de mpier ON 
i ={- 
P 1DETECT, “OFF, LICNE/INCHE =6 
MARGE BR PP D ” 
DKFAULTS Sauve les prédispositions en cours pour l'iapri- 


nante pour utilisation au aonent d'un RESET, 
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Travail de fourmi, ce fichier 
d'aide CP/Mest l'équivalent 
nçais du fichier HELP.HLP 
sur la face 3 des disquettes 
Stème (disquette CP/M pour 

les 9512). 


FICHE TECHNIQUE N° 9 - PACK BASIC 








RANSNnnncs 
HR 


SRE 
ÈS 










REGri de soulagement, la copie 
“d'écran grand format est arrivée 
ce a est pas tout. Concocté avec 
pour cette nouvelle rubrique 


bien plus qu'un simple recopieur 
d'écran... 


nn 0 0000 00000000000000000000006000000000000000 000 00000000000 00000000 000000000000006000000000000000000000 00000000 00000000000 000 00 


nn 0000000000000000000 0000000000 0000000000000000000000000000000000000000060000000000000000000000000000000000600000000000 00000000 500 00 


OBJET : BASIC ETENDU 


COPCEPLEPEEPEECECEEEEPEEE DO E EEE EEEEETEEECEEEE EEE 


DOMAINE : UTILITAIRE/PROGRAMMATION 


ELITE TEEN ENEENRENTENENNENEENRENCEREEENEREEREEEEPEEEEENEECEECEPEEEEEEEEEEEEEEEEEEEEEEE EEE EEE EEE EEE EEE EEE EEE 
ns n000000000000000000 000 0000000000000000000000 00000000 000000000000060000000000000000000000 00000000 00000000000000000000000000000000 
000000000000 006 000000000000000000000000000000000 00000000 00000000000 0000000000 0000 00000000 00 n 00 nee een e een ees eo senee 


REFERENCE : X 009 


COPCOPECCECEECEES 00000000000000000 000 20000000 00000 000000 200 20000000 0000000000000000000000000 0000000 


L E D E T A I L 


100 % langage machine, PACK BAS est livré sous deux 
formes. D'une part, le source commenté (55 Ko, quel 
travail!) permettra l'adaptation à tout langage (DBASE, 
PASCAL, C, etc) ainsi que des découpes pour la récu- 
pération de fonctions utilisables seules (la copie d'écran 
par exemple). 


D'autre part, PACK BASIC est aussi fourni sous la 
forme de deux programmes basic (KERNEL et PACK) 
qui permettent une utilisation immédiate en basic des 
fonctions disponibles et dont voici un petit récapitulatif : 


AFFICHE UN POINT- EFFACE UN POINT - INVERSE 
UN POINT - TESTE UN POINT 

EFFACE L'ECRAN - REMPLIT L'ECRAN - INVERSE 
L'ECRAN - RESTORE L'ECRAN - GROSSIT LES 
LETTRES - TRACE UN TRAIT HORIZONTAL GRAS - 
IDEM MAIS FIN - IDEM MAIS VERTICAL - IDEM MAIS 
GRAS - SAUVE L'ECRAN - CHARGE L'ECRAN - LIT 
LA MATRICE D'UN CARACTERE - REDEFINIT UN 
CARACTERE - REMPLIT UNE ZONE DELIMITEE - 
COPIE D'ECRAN EN SIMPLE DENSITE - COPIE 
D'ECRAN EN DOUBLE DENSITE. 


EN CONCLUSION 


Proche de la philosophie de GRAPHIC MAGIC, PACK 
BASIC propose moins de fonctions mais une contre- 
partie de taille : plus simple à utiliser que son maître, il le 
dépasse pour ce qui concerne la copie d'écran qui, sor- 
tant des limites dans lesquelles elle agonisait depuis 
trois ans, retrouve une nouvelle dimension. 


Encore merci Métal Wolf! ta 


CE/H Plus nstrad Consumer Electronics ple 
y 1,4, 61K IPA, à disc drives, SI0/Centronies add-on, 368K drive M: 


A}hasic 
Mallard-80 BASIC with Jetsan 


Version 1,29 


(c) open 1984 Loconotive Softuare LEd 


Il rights reserved 
31597 free hutes 
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Mis au point par un professionnel de la grosse cavalerie 
(IBM 370 et compagnie), cet éditeur de haut niveau est 
l'exemple même de la sobriété alliée à la performance, 
jugez plutôt : 


Editeur plein page, il donne accès en deux modes, 
consultation et modification, à l'édition de fichiers ASCII 
d'une taille maximum de 360 lignes de 255 caractères. 
Outre la sauvegarde automatique du travail en cours 
(comme SPRINT de BORLAND par exemple!) il est 
bourré de fonctions d'éditions résumées dans les pages 
d'aides (voir copie d'écran) accessibles à tout moment 
en cours de travail. 


Notons que l'utilisation des mêmes touches qu'en basic 
(CUT, +, etc...) évite la gêne d'une ré-adaptation à ce 
programme. 


Autre avantage, l'éditeur est pleine page, ce que ne per- 
met pas le basic. Pour être plus précis, nous dirons que 
nous pouvons travailler sur plusieurs lignes à la fois et 
non plus ligne à ligne. 


EN CONCLUSION 


Venu de la grande informatique, EDIT 2000 est certaine- 
ment l'éditeur le plus performant aujourd'hui disponible 
sur PCW et nous en comprenons tout l'intérêt en pen- 
sant à ce que tout analyste reconnaît volontiers : "Dans 
les milieu professionnel, on estime que de tels utilitaires 
font gagner 50% du temps dans l'écriture et la mise au 
point d'un programme". Exclusif non? 


AGEF 0E16 


lis 
callidosfon: 


Écrit le bloc sur je fichier 
ferne:lde, 1h; Ferne le fichier 


f4 

dl 

Se | Al Deer fppel fonction HD0S 
ushde el fonction 

fl fre Lise Falls) ave sauvegarde du registre 

7 | A6FS Di po e; DE (contient adr, du FCB) 

ñ A6F6 C9 

13 | A6F7 eof: 

14 | AGF7 14 dbiah 

75 6F8 adrfcb: 

16 8 duo 

17 | AGFA FCAG dufch 

178 fcb: 

19 | AGFC ds8oh 

f A7è4 dnaequf ch+40 

ki A7 end 

85 || ASEG SYMBOLS 

86 


87 || ADRFCB AGFS BDOSFO AGF1 DNA  A724 EUF 
88 | FERME AGEF NBRENR AG34 ZEROFI 4686 


000 ERROR(S) ASSENBLY COMPLETE 
EN u f in de programe #44 


AGP? FCB  AGFC 


=) =) 1$1 abandon 1$] aide HS iapression ff sauvegarde ( 





..t...80€ 


SRSARE 


Dpose tant au point de vue de 
sie, de la visualisation que des 
“fonctions annexes. Nous connaissions 
RPED.COM, dont les limites firent fuir 
les plus téméraires, ED.COM qui 
dégoûta plus d'un dislexique et 
LOCOSCRIPT trop lourd pour faire 
notre bonheur. En fait, nous étions en 
manque et voilà le sauveur... 





TITRE : EDIT 2000 


OBJET : EDITEUR PLEINE PAGE 





inde la commande & ligne suivante 


TRAITEMENT de TEXTE : Me : ae ser igue 
caractère 
BI caractère di Ersee 
#1 : active ou désactive pen insertion 
EXTRMPRT fait office de ‘ d'écr: 4 
EN A 9 A TION 








MSA 


laffige les lies } Sa 
ï RATE) 


à $ Gage) isa escend de 4 

; dat : À t {ed dt 1 HT-$ 

ï P (page) ipt À rente de 4 a pes 
recherche de chaine î feu) i Masie i à à 

| de caractères É ï ot igne cour! ri 


insérer des lignes À (nanre lime IFRS oem | 


Feat 


l'rositiomer me lime : 4 (ligue) AT: 
Pen Meet de PA: dé a | 





|| descendre sw les 
| pages suivantes 
| ter 1 

| ages précéientes 


| copier des lignes À C deb, (is, Mise | iê ges rh jimes me 
LL 


| nouvenenter des time! N deb, (fin, Die À k HU 


: nosvmente ins Ê a? Fi sl 


1 à? 
HAL 


: répète $ fois la | 
à ete À is a lime 1 


effacer des lignes in deb(, fin) 'E ÿ 7 


| répéter des lignes D (noabre,)ligne LL 5,15 





| 
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FICHE TECHNIQUE N° 11 - SUPER TURF 











omple remarquable de la diversité 
cette formule des exclusifs, 
ee agnants! Capable d'ingérer 


s pe 
"d'une course, il établit son pronostic 
avec une rigueur qui était, à ce jour, 
inaccessible aux turfistes invétérés. 


00000000000000000 0000000000 0000000000 000000000000 00000000 000000000000 0000000000 000000000000000000000000000000000 00000000 000 00 


000000000000 0000000000 0000000000000000000000 000000000000 00000000 000000000 000000000000 00000 nn 000 sense ne 00e sense s 000000 


OBJET : ANALYSE ET CLASSEMENT DE TROTTEURS 


000000000000000000000000000000 080000 000080000000 000 00000000 0000000000000000000000000 0000000000 00000000 000 20000000 000 0000000 


DOMAINE : VIE PRATIQUE 


00000000000000000000000000000050000000000 000 000000000000 00000000 00000000 000 000 00000000 000000000000 0000000000 00000000 0000000080 


nn 0000000000000000000006 000 00000000000000000000000000000000000000000 000 000000000000000000000000200000 000020000000 00000000 0000000000 


nn 000000000000000000000000000000000000000000000006000000 000 00000000000 00000002 00000000000 000000000200 00000000 20000000000006 0000000 


REFERENCE : X 011 


COPOCTECEE EPL 


000000000000 000 00000000000 00000600 000 00000000 200020000000 000 00000000 200000 00000000 0000000 










MEMENTO Saisie des données : RUAEETFAEUTISTEMATNNTNATE 


Tab. Réductions 










Vérifiez vos entrées / correct O/N 






































19 si (17 sec, 

S si 17 () 17.9 

8 si 18 €) 18.5 

7 si 18.6 () 18.9 

6 si 19 €) 19,5 CLASSEMENT pour TROTTEURS selon PERFORNANCES 

5 si 19.6 ©) 19.9 = 

4 si ©  () 20.6 Prix ECHO DU PCH 12 partants 1000 an. 

3 si 20.6 () 20.9 | 

8 si él () 81.5 N° 1 IDEAL DU GAZOIL Total des gains : 190000 

1 si 21.6 () 2e 

à au delà Tps record abs. 10,.1/ 1 Sur 250 
Course N° 1 Place 3 L 
Course N° à A Dernière course 
ns je à î Cot 1 4/1 
ourse gte : 
Course N° 5 4 Distance : 1400 
Course N° 6 A Dernier record : { 
Course N° 7 7 18 partants 
Course N° 8 1 francs 
Course N° S$ 3 
Course N° 1 ê 


E 





D E T A I L 


Utilisant à son profit (et au vôtre d'ailleurs) ce que 
l'informatique permet de plus rationnel en matière 
de classement, le programme SUPER TURF ana- 
lyse et décortique les informations liées à chaque 
participant d'une course. 


D'abord, il demande de quel prix il s'agit, puis le 
nombre de partants, la distance à parcourir et, 
pour chaque cheval, le total des gains déjà réali- 
sés, leur place et leur cote dans les dix dernières 
courses, leur meilleur temps, la distance sur 
laquelle il a été réalisé, etc, etc... 


Une fois le détail entré, le programme utilise cette 
masse d'informations pour vous donner son pro- 
nostic suivant une méthologie qui, soit dit en pas- 
sant, a déjà donné des preuves plus que 
juteuses.. (auteur dixit !) 


EN CONCLUSION 


Exclusivement à l'usage des trotteurs*, ce pro- 
gramme est particulièrement original et si l'expert 
se garde de lui confier son porte-monnaie il pourra 
tout de même en faire son meilleur conseiller... Foi 
de cheval ! 


* Ce n'est pas des lecteurs dont il s'agit ! N.D.L.R 


ensssssosescsssosssese: Des, CON 
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Construite sur la base de 14 modules de programmes, 
cette généalogie travaille sur deux fichiers de base. Le 
premier est celui des ancètres. Il collationne toutes les 
informations indispensables sur chaque participant soit: 
nom, prénom, date et lieu de naissance, date et lieu de 
mariage, date et lieu de décès et enfin profession. Le 
second fichier gère les lieux selon une codification qui 
comprend le département, le code INSEE de la ville et 
un code optionnel servant à la classification de certains 
hameaux. 

L'utilisation d'un code et d'un sous-fichier des lieux per- 
met une gestion optimum de la place sur disquette ce 
qui autorise l'entrée de près de 6000 ancètres sur une 
disquette double face. 

GENEALOGIA se charge aussi de l'édition sur impri- 
mante de fiches agnatiques sur lesquelles les person- 
nages sont regroupés en lignées parternelles du fait 
qu'en France, le nom se transmette par le père. 
L'ensemble de ces tableaux est ensuite classé par ordre 
alphabétique et constitue un outil de travail fort appré- 
ciable, tant pour retrouver la place d'une personne dans 
la généalogie, que pour pratiquer des recherches et 
échanges d'informations entre généalogistes. Enfin, 
GENEALOGIA est aussi capable d'imprimer l'arbre 
généalogique des personnages du fichiers et ce, par 
tranche de cinq générations ce qui permet, par recoupe- 
ment des listings ainsi établis, d'avoir l'arborescence 
complète depuis les premiers ancètres répertoriés. 


EN CONCLUSION 


Représentant un travail considérable, cette application 
ne tourne qu'en compagnie de DBASE Il (non fourni 
avec GENEALOGIA) et devrait satisfaire tous les 
généalogistes soucieux de mettre à leur service la puis- 
sance d'une telle base de données alliée à une applica- 
tion adaptée au traitement de la masse d'informations 
que la généalogie doit obligatoirement recenser. 


. @ 
1! BELLON 


| Jacques 


1 023/04/1762 St Genouph 
1 +24/06/1820 La Riche 


| Laboureur 
l 












NTATION 


alogie, qui semblait autrefois 
intérêt que pour les familles 


& 


ant d'une certaine notoriété, 
ellement pratiquée par des 


és dans une recherche passio- 
nnée de leurs ancêtres et de leurs 
collatéraux. C'est pour les aider que les 


exclusifs proposent cette application 
tournant sous DBASE II. 


! 336 

! 168 | BELON 

! BELLON ! Isaac 

! Martin 1-x 

lo ! 337 
| $4 | +avant 1759 | BOUROIER 
| BELLON | | Jeanne 
| Piarre 1-x25/02/1727 Tours - ND --------"........... 
Lovers 1731 l | 338 
! +avant 1787 | 169 ! BRICET 
| Laboureur | BRISSET | Sinon 
| ! Louise 1=x 
! lo ! 339 
! |! +avant 1759 | BARRET 
| ! l Harguerite 
1-x03/07/1759 Tours - ND ---------.....smnnsssennsssssssssnss 
! ! 340 
! ! 170 | BEDQUET 
l | BEDOUET | Michel 
! | Jacques 1-x05/09/1702 Tours - NO 
! l'overs 1703 | 341 
! gs 1 + ! LOTHION 
! BEOOUET ! Laboureur! Couvreur ! Françoise 
| Françoise 1-x05/09/1702 Tours - ND ------------."... 
l'overs 1729 ! ! 342 
+ ! 171 | HOREAU 
! | MOREAU | Pierre 

| Françoise 1-x23/11/1706 Tours - NO 


GENEALOGIA 
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FICHE TECHNIQUE N 






{| permet de construire un vérita- 
… ble scénario dans lequel tout est 
prévu et garantir à ses utilisateurs 
de longues heures de recherches 
et de déductions dont l'intérêt n'aura 
jamais de limite … 


TITRE : : AVENTURES 


nn 0000000000000000000000000000 0000000000 000 00000000 0000000000000000000060 0000600000 000 00. CTÉPCEPCEECEECEECECCECCEEECEEECEECEEEEEES 


OBJET : CREATION DE JEU DE ROLES 


0000000000000000000000 000 00000000000000000 000000000000 0002005 2000000000 0000000000 500 20000000 000 0000000000 00000000 0000000000 


DOMAINE : JEU 


LOCOECECEECEEPCECEECECECCCEPPECPEPCEPEEEEEEE COCCECOCPEEECEPCEPECPCEECEOECCEPCEPECCECCCPEEEECENEEEEPEEEES COPCOPDEPEEEDECEE COCO ECEEEES 


8256/8512/9512 


MACHINE 





REFERENCE : X 013 


nn 0000000000000000000 000000000000 00000000 0000000000 00000000 en ne nn en en sense nn esse sn e en nes esse e seen eee 0e 0000000000 


JEU D'AVENTURE Fich. CANBRIOL-CANBRIOLAGE PROG. Lexique : verbes 
1 FRANCHIR 8 SAUTER 3 GRIMPER 
4 ESCALADER S HONTER 6 ENTRER 

? PENETRER 8 INSISTER $ ESSAYER 
(] 11 OUVRIR 12 FORCER 
13 ENFONCER 14 DÉFONCER 15 FRACTURER 
16 SCIER 17 ARRACHER 18 DENON 

1 ALLER 

ee DIRIGER 23 MARCHER e4 

es e6 87 
ê8 ê % 
31 PRENDRE 32 SAISIR 33 ENPARER 
34 VOLER à à 


2: anne 


& 
à APPUYER VEU D'AVENTURE Fich. CANBRIOL-CANBRIOLAGCE 


43 
Se GRAISSER TEXTE 1:Nous voici dans le pres: Arbre le coffre... Sa porte est 
55 constellée d'une effroyable quantité de cadrans que vous 
58 vous escrinez pendant des us à tourner dans Gous les 
sens. 

TEXTE 2: .,.en vain... le. Jour va bientot poindre. Cette déconvenue 
vous à fait perdre 390 points de vie. Il vous sortir. Seules 
issues, la fenetre et la porte. 


TEXTE 3: Par où sortez-vous ? 





TYPE DE SITUATION (1=act. 2=pas. 3=fin): 1 

or D'ACCES (n° d'objet ou vide).: 

POINTS DE VIE (n, -n, ou vide).. S 

AU Cn; -n, ou vide)... 

OBJET TROUVE: OBJET Péii: ! 

PR L:#1 RENVOI EN: 33 

DES à RENUOI EN 
C 4 : RENVOI EN: 


FLECHES Chaut/bas) puis RETURN - COPY pour sa! 
CAN pour lire les données et le lexique $ cû po iapriner - EXIT 






PROG. Situation : 64 





13 - AVENTURES 


Organisé avec un professionnalisme étonnant, AVEN- 
TURES est constitué de deux blocs indissociables. 
L'éditeur de jeu, d'une part, permet la conception du jeu 
en lui-même, soit : Situation, lexique, architecture du 
jeu, etc... Le gestionnaire, d'autre part, permet d'être 
confronté au jeu ainsi construit ou encore à ceux créés 
antèrieurement et sauvés sur disquette. 


L'intérêt majeur d'AVENTURES est de pouvoir concevoir 
des jeux d'une telle complexité, faisant intervenir tant de 
situations et de vocabulaire que le concepteur d'un scé- 
nario risque fort d'être pris à son propre piège... 


Conçu en basic, AVENTURES ne gère que du texte 
mais on pourra aisément le modifier pour qu'il traite 
aussi des images et faire qu'il devienne l'outil le plus 
performant de J.A.0* jamais commercialisé à ce jour! 


EN CONCLUSION 


Etonnant et parfaitement réalisé, ce programme est livré 
avec un jeu complet construit pour la circonstance par 
son auteur qui ne dément pas la réputation qu'il a su 
acquérir grâce à d'excellents programmes. En conclu- 
sion, AVENTURES, une valeur sûre! 


* Jeu Assisté par Ordinateur 


U D'AVENTURE Fich. CAMBRIDL-CANBRIOLAGE PROG. Sit. 1) 2 





Vous voici sur les lieux, Vous etes devant la grille qui 
entoure le inet au nilieu duguel se dresse la naison. 


Les seules el er à part Îe franchissement acroba- 


tique de la grille, sont un portail et un portillon. 


Que voulez-vous faire ? 


FRACTURER PORTAILE | 


larg votre réponse 
u (?» pour sortir. 
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U E T T E 3 
Les disquettes thématiques de l’Echo reprennent tous les 


programmes depuis le numéro 1. Bénéficiant des dernières 
améliorations chaque disquette est livrée avec son manuel. 















E pacx GESTION 1 GESCALC 2 PACK GESTION Ii GESTION DE 2 PACK JEU 1 POKER FOLIES 

EE REF:PGET INVESTISSEMENT Œ REF:PGE2 STOCK REF : PJE1 AGENDA 
PATRIMOINE ATHEMYS MUSIC MACHINE 
BUSINESS SUPER GRAPHE MATHELEM 
PERT EVALUATION LOTO 
DEMO : AZERTY T.A.O. OTHELLO 


DEMO : TASWORD DEMO : AZERTY 





EE He ETIQUETTES DBASE PACK AUTO- GSX.BAS 

2  MULTIPLAN MULTIPLA.KEY j STARS PROGRAMMATION GSXDAO 

EL RER PROMT STANDARD KEY GAG ET SETKEYS T.A.O. 
DBASE.KEY PRINTER MAKER LES PLUS D’EXBASIC 
PROGI.CMD, PROG.CMD MONITEUR DE DISC SUPER GRAPHE 
MENU.CMD MATRIX DEMO : GRAPHIC MAGIC 
DEMO : AZERTY LOCASC2 





TABLEAUX ASCII 
DEMO : GRAPHIC MAGIC 


000000000000 000009000000000000000000000000000000000000000000000000000000000000000000000000000000000000 











TAQUIN COMMANDES ET FICHIERS Æ m2 à LOGOGRAF 

BIORYTHMES DU SYSTEME EXPERT = i.. E LOGOTRAM 

SNAKY COMMANDE ET FICHIERS =  ETIC FACILE 

PARACHUTE A LA RECHERCHE DE —3û@ij +1 CODES GRAPHIQUES POUR 
JEU DE LA VIE L'OCTET PERDU + DBASEI 

SUPER QUIZZ CODES GRAPHIQUES POUR TRIFICH 

DEMO : AZERTY DBASEII CALEND.PC 





DEMO : TASWORD 


PTU 2 TURBO.KEYS = À  CHRONOS3 GENERATEUR D'’INDEX 
UTILITAIRES MENUS DEROULANT E mattusE INVEST3 TRANS LOCASC2 
ECHO.BAS = + BUDGET FAMILIAL TOUS LES FICHIERS DEPUIS 
CLAVIER MAKER GESCALC2 LE N°1 
TROUVE.BAS CALEND.PC 
VERIF B12+ DEMO : GRAPHIC MAGIC 


DEMO : GRAPHIC BASIC 





NOUVEAU 


000000000000 000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 


Prix unitaire : I06F BC... 
Par. 6 références :.500 F FFC (Soit | référence GRATUITE) . 
Par 12 références : 900 F TTC (Soit 3 références GRATUITES) 





Bon de commande au dos 





ARRETER LE TAPAGE NOCTURNE 


Reposez-vous, offrez à votre PCW les disquettes de l’Echo du PCW. Saisis 
avec amour et testés avec passion, les programmes qui les composent sont 
ceux du numéro correspondant... Alors contre l'usure prématurée du cla- 
vier.. une seule solution : Commandez-les ! 


ATTENTION DESORDRE... 


Le numéro d'Avril est introuvable ? Celui de Juin froissé ? Comment pouvez- 
vous supportez cela ? Vous ne pouvez plus, alors d’Echo vous le dit... C'est 
la reliure qu'il vous faut ! Prévue pour classer une année complète soit onze 
numéros, elle garantit la longévité de votre collection et vous fera gagner 
un précieux temps en recherche et en classement... 


LE CHAINON MANQUANT... 


L'Echo du PCW est le mensuel des PCWistes et depuis son premier numéro 
de nombreux sujets essentiels ont été abordés. L'information qui vous man- 
que est probablement dans l’un d'entre eux. Alors ne cherchez plus vaine- 
ment et complétez, sans attendre votre collection avec les sommaires des 
anciens numéros. 


KL 
> 
ë 
2 
8 
£ 
Fe) 
= 
Wu 
LA 
2 
el 
y 
[4 


7 PU LLUIJII 


Notez chacun des articles que vous avez lus et retournez ce questionnaire à L'ECHO. 
Chaque mois, l'auteur dont l'article a obtenu la meilleure moyenne se verra attribuer une 
prime de 1000 F et le lecteur tiré au sort recevra un magnifique cadeau-surprise. 


PAGE PAS LU NUL MAUVAIS MOYEN BON EXCELLENT NOTES 
8 Q Q Q Q Q D a 120 
15 Q Q Q Q Q D «54 120 
17 Q Q Q Q Q OR 120 
36 Q Q Q Q Q D 4 120 
41 Q Q Q Q Q EU. 4e 120 
43 Q Q Q Q Q io —.24 1/20 
48 Q Q Q Q Q Œ = 46e 120 
53 Q Q Q Q Q Er. << 120 
- Q Q Q Q Q Er : 4 120 

ST SSRNANS NN ENT NES Prénoms ADO sisi PrON6SSION scission 


1@))\E> 2010)" \\IR)E 


annule et remplace les précédents 





Melle/Mme/M./Sté/Ass"-Nom rennes PÉNOMermmennanmmanmnnrsonnt 
ACHOSE 2 rnnrrsronrrrerésssninie rire PEER even s eee PARUS PRO PTS ET TER TT PER SR een 8 OP 38 
Code POS :rsmmmanemnennens ViBrasmressmmmemememnamimnndenmemiinenmaminnmnennandersnnnemenues 
Tél nommant tienne POS uma nd ranesnansternridansrnrannieninintrenltisaretiite té Ts 








au x ABONNEMENT d'une année soit ONZE NUMEROS X 290F TTC (France) Î F (VA=18,97) | 
sun.X ABONNEMENT d'une année soit ONZE NUMEROS soit x 450F TTC (Etranger et DOM-TOM) | x nnnmanen F (TVA=29,44) 
ANCIENS NUMEROS (encerciez les numéros désirés) E 
123456789101112 13 14 15 16 17 18 1920 soit... X _30F TTC (France) | = anrnrnuns F (VA=1,9)  ! 
ANCIENS NUMEROS (encerciez les numéros désirés) 
12345678910111213 1415 16 17 18 1920 soit... x _40F TTC (Etranger et DOM-TOM) Sim F(VA=2.62) : 





sonne x ABONNEMENT d'une année soit ONZE NUMEROS soit ….…. x 690F TTC (France) Ù ES junnisnu FAVA=10821) 
sidi x ABONNEMENT d'une année soit ONZE NUMEROS soit ……. X 900F TTC (Etranger et DOM-TOM) | Æ sn F (VA=141,15) 
DISQUETTES (encerciez les numéros désirés) ! 
123456789101112131415 16 17 18 192021 soit…….x 80F TTC France) | Sara F (VA=12,55) | 
DISQUETTES (encerciez les numéros désirés) ! 
123456789101112131415 16 17 18 192021 soit…….x 95F TTC (Etranger et DOM-TOM) | Te F (VA=14,90) | 





rnsrsnnness F (VA=12,55) 


sort x RELIURE DE CLASSEMENT ANNUEL (contient 11 numéros) soit …….xX 80F TTC (France) 








..X REUURE DE CLASSEMENT ANNUEL (contient 11 numéros) 95F TTC (Etranger et DOM-TOM) F (VA=14,90) 
















| 

REFERENCES  PGE 1 | PGE 2 | PGE 3 | PTU 1 | PTU2 |POM] it... X 100F TTC + (Etranger et DOM-TOM, 
Oise x 6 pour 500F TTC* ajouter 7F par disquettes) | 

REFERENCES PGR 11 PGR2 | PJE 1 | PJE 2 | PLO 1! PDB 1 OÙ suc x 12 pour 900F TTC* Etnnihorase F(VA=15,68) ; 





REGLEMENT A L'ORDRE DE LOG/!'STICK PAR SIGNATURE OBLIGATOIRE : 
(celle des tuteurs pour nos lecteurs mineurs) 
© MANDAT [J CHEQUE ÛJ CCP ÛJ VISACARTE BLEUE 
numéro de la carte | LL1I | L LL | LL1 | LL1 | date de validité last 


Tous ces prix sont nets et incluent le port et l'emballage 
ATTENTION, CE BON DE COMMANDE TIENT LIEU DE FACTURE. CONSERVEZ-EN UN DOUBLE POUR VOTRE COMPTABILITE . 


A RETOURNER A L'ECHO DU PCW - LOGl'STICK Edition 








L'ECHO DU PCW! 
octobre 1986 


L'ECHO DU PCW 
juillet-août 1986 


L'ECHO DU PCW 
nov - dec 1986 














L'ECHO DU PCW 
septembre 1986 


SPECIAL IMPRIMANTE SPECIAL ECRAN 
FAITES FORTUNE AVEC VOTRE PCW BASIC : COMPATIBILITE CPC/PCW 
















































SPECIAL LIGHT PEN 
COMMENT CHOISIR SA COMPTA (1) 


SPECIAL DBASE 
INITIATION A DBASE I (2) 


SPECIAL MUSIQUE 










INITIATION À DBASE II (3) 





LES CONFIDENCES DE LOCOSCRIPT LES PLUS DE MULTIPLAN INITIATION A DBASE Il (1) LES LIVRES ET LES TRUCS DE DBASE CPM : SETLST 

BASIC : GSX - UN DEPART BIEN DEMARRER EN LANGAGE COMMENT CHOISIR SA COMPTABILITE (1) DES CADEAUX POUR PCW TELEMATIQUE : L'EMULATION MINITEL 
SAISISSANT MACHNE LES CONFIDENCES DE LOCOSCRIPT TRANSFORMER UN PCW EN LES CONFIDENCES DE LOCOSCRIPT 
PROGRAMME : POKER FOLIES TOUT SUR LA SAUVEGARDE INITIATION LANGAGE MACHINE (11) SERVEUR MINITEL PROGRAMME : MUSIC MACHINE 
REPORTAGE : AMSTRAD SHOW BASIC ET AUTO-PROGRAMMATION DOSSIER : L'ECRAN LES CONFIDENCES DE LOCOSCRIPT BUSINESS 





LOCOSCRIPT, NEW LOOK, etc … 
LES LIVRES DE VOTRE PCW 


ESSAIS : LIGHT PEN - 3D CLOCK 
CHESS 

BIORYTHMES - LIVRE JETSAM - 
AZERTY 


PROGRAMME : INVESTISSEMENT - AGENDA 
ESSAS : LA SOURIS - TOMAHAWK - 
ROTATE - EXBASIC -LIVRES DE 
MULTIPLAN 


Tous les programmes du N° 2 Tous les programmes du N° 3 
sont sur la disquette 2. (o] sont sur la disquette 3. o] 


PROGRAMME : MATRIX - PATRIMOINE 
ESSAIS : TASWORD 8000 - MEDIACOMPTA - 
MX 330 - CLEF POUR PCW 


ESSAIS : COMPAGNON - MX 550 - 
STRIKE FORCE - HARRIER - PCW10 
DISQUE DUR 


Tous les programmes du N° 4 
ont sur la disquette 4. Co] 


















Tous les programmes du N° 5 
sont sur la disquette 5. 

















# une démonstration gratuite 
d'AZERTY 


L'ECHO DU PCW! 
février 1987 


SPECIAL PLUS 
ESSAIS : SPOOL 
INITIATION A DBASE II (4) - LES PLUS 
CPM : LES PLUS - DELUGE ASCII (1) 
- EXBASC 

LES CONFIDENCES DE LOCOSCRIPT 
REPORTAGE : AMSTRAD SHOW 
L'EVASION TELEMATIQUE 
PROGRAMMES : GESTION DE STOCK 
- DAO ET GSX 


ECHO DU PCW 
avril 1987 


ECHO DU PCW 
juin 1987 


CHO DU PCW 
juil - août 1987 


SPECIAL COMPTA SPECIAL SOMMAIRE 

ESSAI : MAILING ESSAI : MEMENTO BILAN PLUS 
INITATION À DBASE II (5) - LES LIVRES INITIATION À DBASE 1 (6) 

COMMENT CHOISIR SA COMPTABILITE (4) CPM : TOUS LES LIVRES 

L'EVATION TELEMATIQUE ANCIENS SOMMAIRES THEMATIQUES 
DELUGE ASCII (2) L'EVASION TELEMATIQUE 

LES CONFIDENCES DE LOCOSCRIPT LES CONFIDENCES DE LOCOSCRIPT 
LES BONS PLANS DE MULTIPLAN DELUGE ASCII (3) : MULTIPLAN 
PROGRAMMES : PRINTER MAKER 3 - PROGRAMMES : GESCALC 

UNE COMPTA SUR PCW 


SPECIAL JEUX 
INITIATION A DBASE II (7) 
LES AVEUX DE MME LACAILLE (1) 
UVRE : FICHIER SUR AMSTRAD 
DELUGE ASCII (4) : RPED 

LES CONFIDENCES DE LOCOSCRIPT 
L'EVASION TELEMATIQUE 
PROGRAMMES : MATHELEM 

ESSAI : GRAPHIC MAGIC - JOYSTICK 


SPECIAL TELECOMMUNICATION 
INITIATION A DBASE 1 (8) 
COMMUNICATION : L'UNIVERS 
TELEMATIQUE - LES LIVRES - RS 232 
L'EVASION TELEMATIQUE 

DIVERS : DECOUPE BANDES - PCW VECU 
CP/M : TOUT SUR LE CLAVIER 
PROGRAMMES : PERT - RS/MAKER - 
OTHELLO 

ESSAIS : MODEM OLITEC - CALVACOM - 
MAIL 232 


Tous les programmes du N° 9 
sont sur la disquette 9. lo] 


+ Une démonstration gratuite 
de GRAPHIC MAGIC 


L'ECHO DU PCW 
décembre 1987 

































Tous les programmes du N° 6 
sont sur la disquette 6. 

+ Une démonstration gratuite 
de TASWORD 8000. 


L'ECHO DU PCW 
septembre 1987 


SPECIAL PROGRAMMES 
ESSAI : TURBO EXPERT BASE 
INITIATION À DBASE II (9) 
L'EVASION TELEMATIQUE 
DEMARRER EN CP/M 
LOCOSCRIPT : LE SECRET DES PAGES 
INITIATION A L'INTELLIGENCE 
ARTIFICIELLE 

PROGRAMMES : MONITEUR DE 
DISC - LOCOGRAF - LOTO - 
STICKER_MAKER - TO. 


Tous les programmes du N° 11 
sont sur la disquette 11. Co] 


Tous les programmes du N° 7 
ont sur la disquette 7. 


Tous les programmes du N° 8 
sont sur la disquette 8. 
+ Un programme inédit et 





Tous les programmes du N° 10 
sont sur la disquette 10. 





"ECHO DU PCW 
janvier 1988 







SPECIAL P.A.0. 
ESSAI : DTP-PAO - VIDI MX-990 - ASTRO 
INITIATION A CP/M (2) 

INITIATION À DBASE II (10) 

INITIATION AU BASIC (1) 
INTRODUCTION A LA PAO 
PROGRAMMES : INVEST + - 
VERIFICATEUR B-12 - QUIZZ - 
LOCOTRAM 


SPECIAL TELECOMMUNICATION 
INITIATION A DBASE II (8) 
COMMUNICATION : L'UNIVERS 
TELEMATIQUE - LES LIVRES - RS 232 
L'EVASION TELEMATIQUE 

DIVERS : DECOUPE BANDES - PCW VECU 
CP/M : TOUT SUR LE CLAVIER 
PROGRAMMES : PERT - RS/MAKER - 
OTHELLO 

ESSAIS : MODEM OLITEC - CALVACOM - 
MAIL 232 


SPECIAL TUYAUX 
ESSAI : SCANNER, SIGNWRITER 
L'EVASION TELEMATIQUE 
REPORTAGE : E. MEZO 
DBASE : INITIATION LA. (3) 
PROGRAMME : LOCOSCRIPT, 
BUDGET FAMILIAL 

CARTE BLANCHE A V. LEDOS 
INITIATION AU BASIC (3) 

CPM : TOUT SUR LE CLAVIER 


SPECIAL BANC D'ESSAI 
BANC D'ESSAI : PCW 9512, 
HERAKLIOS, ASTRO FUTUR 
DBASE II : A LA RECHERCHE … 
TOUT SUR LES RUBANS 
INITIATION AU BASIC (4) 
PROGRAMMES : CHRONOS 
LES VOEUX DE L'ECHO | 

























Tous les programmes du N° 1 


Tous les programmes du N° 15 
sont sur la disquette 12. 


Tous les programmes du N° 1 Tous les programmes du N° 14 
lo] sur la disquette 15. 


sont sur la disquette 13. sont sur la disquette 14. 

















: L'ECHO DU PCW 
mai 1988 


















SPECIAL PROGRAMMES 
BASIC : UTILITAIRES - CLAVIER MAKER 
-TROUVE.BAS 










SPECIAL ASTUCES 
LA LOGITHEQUE DU 9512 
JEUX : HISTOIRE D'OR 


SPECIAL COURRIER 
PROGRAMMES : TAQUA - LOCO INDEX 
INITIATION A CP/M (6) 


SPECIAL FORMATION 
REPORTAGE : SCOOP EN STOCK - 
LOCO DE MES REVES 


SPECIAL DBASE 
NOUVEAU 1H : LES EXCLUSIFS DE 
L'ECHO - FICHES TECHNIQUES 










JEUX : SNAKY - PARACHUTE INITIATION AU PASCAL (1) INITIATION AU BASKC (5) LES CONFIDENCES DE LOCOSCRIPT INITIATION AU BASIC (6) 

DBASE II : A LA RECHERCHE .… INITIATION A CP/M (4) INITIATION AU PASCAL (2) INITIATION AU PASCAL (4) INITIATION AU PASCAL (5) 
INITIATION A CPM (3) LES ENTRAILLES DU PCW LES CONFIDENCES DE LOCOSCRIPT DOSSIER : MONTEE EN ALTITUDE - PROGRAMMES : LA CHENILLE - 
CARTE BLANCHE A O.COQUIN ASCII ET DBASE BANC D'ESSAI : MOP-MEP ( TRATE- GENEALOGIE AVEC LOCOSCRIPT CLOCK MAGIC - DELREM - HISTO 
L'EVASION TELEMATIQUE CARTE BLANCHE A R. SCHYNS MENT DE TEXTE ET BASE DE DONNEES) BANC D'ESSAI : MOP-MBP (SUITE) DBASE 


LE PCW LOOK PC L'EVASION TELEMATIQUE PROGRAMMES : DBASE ET ASSEM- 


BLEUR - À PROPOS D'ATHEMYS - 
MUSIC MAESTRO 


LES CONFIDENCES DE LOCOSCRIPT 
LES ENTRAILLES DE DBASE (2) 








Tous les programmes du N° 1 
sont sur la disquette 16. sont sur la disquette 20. 


ds ONE L | - : + . : ETS 


COTETOTE EEE EECEECEPECECEPCEPCEECCECEECCEC EEE CODLECEEL TEEN ECCECCECEECCECEEECEEPOCECPEEPE) Pnnsnsnnos nes sen en nen een 000000000000 000 000000000000 000000000000 000 000000000000 000000 000000000000 0 000000000000 00000 000000000000 0 


@ PHOTOCOPIE SEULEMENT 
LOGTSTICK éditions - 1988 À NUMERO DOUBLE 


Tous les programmes du N° 1 
ont sur la disquette 17. 


Tous les programmes du N° 19 
ont sur la disquette 18. 


Tous les programmes du N° 19 
ont sur la disquette 19. 





Tous les programmes du N° 20 





LE SECRET DÙ BONHEUR 


| 


AXE = 


MN EOGART EAN HUMPHREY 
au 31/02/1989 CITE 6 74894 


IGNATURE 
Celte cafe sinctement personnelle SIG XXX 
donne droit a toutes les activites du club 


LE CUB ECHO 
D k U 
PC: W 





R<— Le CLUB, c'est l'assurance d'être plus PCWiste que jamais 


N'attendez pas pour vous inscrire et pour recevoir votre carte 


BON DE COMMANDE CLUB personnelle qui est déjà le symbole de ralliement des PCWistes 





avertis... 
Tarif pour une année : J'adhère pour une année à compter du / / au CLUB 
FRANCE 350 F. ETRANGER 495 F 
Etudiants et chômeurs : N PRENOM 
FRANCE 290 F. ee — 
ETRANGER, DOM-TOM 390 F AGE ADRESSE 
Règlement par : [] chèque ou 
[] mandat à Logi’stick édition 
Ù Visa Li 
mn mme D CODE POSTAL _ 
Signature obligatoire : TEL. : PROFESSION 


à retourner à : CLUB ECHO DU PCW, LOG/’STICK EDITION, 
CAPN Le Bonaparte, Boîte 49, 93153 LE BLANC MESNIL CEDEX 
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COTOTEOECEE ET EECOECEECEECEEPEPEEPECCEPCECCOPPEPEEPEPCEPEEPEREEEEEEE 


ÉCCOCCPEEPEEECCECCEEEEES 





De l'assembleur au Basic, du Fortran au C, on 


compte de nombreux langages disponibles pour le 
PCW. Parmi tous les critères qui servent à juger de 
leur degré d'évolution, revient souvent l'aptitude à 
définir et manipuler des objets, tâches (ensembles 
d'actions) ou données. Vous le savez, Pascal est très 
bien doté pour traiter les types de données. 


AVEC LOGO : 

Lancez la disquette 
précédents encadrés 
‘7: pour taper chaque 
démarrant par ‘To 
‘end’. Ces deux 





D) LA CONVERSION DE TYPES 


Pascal possède d'origine des types de don- 
nées mais l'utilisateur a la possibilité de 
définir ses propres types, simples, structurés 
ou dynamiques. Dans l'immédiat, une 
approche détaillée des types de données 
simples devrait suffire à satisfaire votre 
appétit de connaissances, alors "à table”. 





A) RAPPELS SUR LA NOTION DE TYPE. 
J'ai pu constater auprès de débutants en langa- 
ge Pascal que la notion de types est ce qui les rebute le 


plus. La question qui revient toujours est : 


ie $ RS 





RS 








SRE 
É 


"Mais à quoi cela peut-il servir, les variables ne sont- 
elles pas suffisantes ?". 

En fait, le type de données est à la variable ce que le 
plan d'architecte est à la maison. Il représente ses 
limites et les objets qu'il peut contenir. Pascal oblige le 
programmeur à s'impliquer dans l'utilisation de ses 
variables, destinées à stocker des valeurs. Non seule- 
ment, nous devons connaître “l'architecture” de chaque 
type, mais en plus, nous devons être capable de "tracer 
des plans” de types correspondant à nos besoins. 


Plus concrètement, un type de données définit 
l'ensemble des valeurs que peuvent prendre une 
variable, une constante, une expression ou qui peuvent 
être renvoyées par une fonction. 

Le programmeur a la responsabilité de la définition et de 
la construction du type de ses données à partir des 
types de base de Pascal, dont il peut se contenter. 

Les types de données les plus simples, non-structurés, 
sont appelés TYPES SCALAIRES. Ce sont des 
ensembles ordonnés et finis de valeurs. Les comparai- 
sons sont donc possibles ainsi que la détermination 
d'une hiérarchie. 

Les types scalaires sont utilisés pour indexer les 
tableaux, mais ils peuvent aussi servir comme type de 
base d'un ensemble ou comme variable de contrôle 
d'une boucle FOR ou d'un test multiple CASE. Nous 
aurons l'occasion de revenir sur ces points. 





Le moyen le plus simple de définir un type de 
données est d'énumérer les valeurs qu'il peut prendre, 
selon le format : 

TYPE (identificateur du type)=(liste des identifica- 
teurs des valeurs du type) 
Par exemple, TYPE COULEUR-(Rouge,Vert,Bleu). 


Dans la figure 1, l'identificateur IMPRESSION 
représente un type de données qui référence trois 
valeurs différentes, distinguées par des identificateurs 
ordonnés : MATRICIELLE, MARGUERITE, LASER. De 
même, VISUALISATION est l'identificateur d'un type de 
quatre valeurs. 

Vous le voyez, des identificateurs sont utilisés pour 
nommer les types de données (IMPRESSION, VISUA- 
LISATION). Les valeurs que pourront prendre les 
constantes, variables, expressions issues de ces types 
sont celles énumérées entre parenthèses grâce à 
d'autres identificateurs. 
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FIGURE 1 : Les types scalaires 
Program Demonstration Types Scalaires; 


(* Définition des types *) 


(* Définition des variables *) 


WriteLn ("Rang de la variable IMPRIMANTE : 
If Ord(Ecran) > Ord(TV) then 


If Ecran > TV then 


END. (* fin de la démonstration *) 


Si on déclare les variables IMPRIMANTE et ECRAN 
comme étant respectivement du type IMPRESSION et 
VISUALISATION, on pourra trouver dans le programme 
les affectations suivantes : IMPRIMANTE :=LASER ou 
encore ECRAN :=COULEUR. 

Pour ceux qui l'ignorent encore, rappelons que “:=" est 
le symbole d'affectation. La variable à gauche du sym- 
bole prend pour valeur celle renvoyée par l'expression 
de droite qui peut-être très simple, comme ici, ou com- 
plexe; mais ceci est un autre problème. 


L'utilisation de types qui lui sont propres, évite 
au programmeur de manipuler des représentations 
numériques : IMPRIMANTE :=MARGUERITE est bien 
plus parlant que IMPRIMANTE :=2. 

Le compilateur établit une hiérarchie, un ordre, entre 
tous les éléments d'un type. Dans le cas du type VISUA- 
LISATION, MONOCHROME et TV sont les limites 
(bornes) supérieures et inférieures de la liste des 
valeurs qu'une donnée de ce type peut prendre. 

Deux fonctions permettent de produire les valeurs qui 
encadrent une variable. Les paramètres des fonctions 
(comme ceux des procédures) étant normalement pas- 
sés entre parenthèses, PRED(valeur) et SUCC(valeur) 
renverront respectivement la valeur précédente (prédé- 
cesseur) et suivante (successeur) de celle contenue 
entre parenthèses, suivant l'ordre de la liste qui a servi à 
définir le type : ainsi SUCC(MARGUERITE) renvoie la 
valeur LASER. ATTENTION, le prédécesseur de la 
borne inférieure et le successeur de la borne supérieure 
d'un type sont indéfinis : 

PRED(MATRICIELLE) et SUCC(MONOCHROME) ren- 
verront des valeurs sûrement aberrantes. 


Ne nous leurrons PAS : si nous utili- 
sons des identificateurs aussi clairs et lisibles que GRA- 
PHIQUE ou LASER, le compilateur quant à lui se char- 
ge de représenter les différentes valeurs des types 
VISUALISATION et IMPRESSION sous forme numé- 
rique. Chaque valeur scalaire se voit donc assigner une 
valeur numérique que la fonction ORD permet de 


TYPE 
Visualisation = (TV,Texte, Graphique, Couleur,Monochrome) ; 
Impression = (Matricielle,Marguerite, Laser); 


VAR 
Imprimante, Qualite Superieure, Qualite Inferieure : 
Ecran : Visualisation; 

BEGIN (* Le programme commence ici *) 


Imprimante := Marguerite; (* Affectation de valeurs aux variables *) 
Ecran := Monochrome; 

Qualite Superieure := Succ(Imprimante); (* égal Laser *) 

Qualite Inferieure := Pred(Imprimante); (* égal Matricielle *) 


",Ord(Imprimante) ); 
(* les deux tests IF qui suivent sont équivalents *) 


WriteLn ("Rang de la variable écran (comparaison rangs) 


WriteLn ("Rang de la variable ecran(comparaison directe) 
WriteLn('Créer et manipuler des types de données?Facile avec Pascal !') 


Impression; 


: ,0rd (Ecran) ); 


: ,Ord (Ecran) ); 





connaître : ORD(LASER) est égal à 2, 
ORD(MATRICIELLE) est égal à 0, ORD(TV) est égal à 
4. 


Puisque chaque élément d'un type a un rang, il 
est donc possible de faire des tests de comparaison 
grâce aux opérateurs suivants : "=", "<", ">", "<=", 
">=", "<>". Par exemple, si ORD(MARGUERITE) > 
ORD(MATRICIELLE) de même on aura directement 
MARGUERITE > MATRICIELLE. 

J'en profite pour révéler à ceux qui ne le sauraient pas 
que les éléments qui se trouvent de chaque côté d'un 
opérateur de comparaison doivent être du même type et 
qu'un identificateur utilisé dans la définition d'un type ou 
pour nommer un type ou encore une variable, ne peut 
être utilisé qu'une seule fois : 

TYPE JOURS=(Lundi Mardi, Mercredi Jeudi 
, Vendredi, Samedi, Dimanche); 

WEEKEND=(Samedi, Dimanche); 

La déclaration de WEEKEND est illégale car les identifi- 
cateurs Samedi et Dimanche sont déjà utilisés dans le 
type JOURS. 


Ci LES TYPES SCALAIRES PREDEFINIS 





D'origine, Pascal met à notre disposition cinq 
types scalaires enrichis par la possibilité de définir des 
intervalles. Ces types scalaires ont une organisation 
similaire à celle des types définis par le programmeur. 
Les fonctions PRED, SUCC, ORD sont valides et les 
comparaisons possibles. 


1) Type logique : BOOLEAN 


Ce type, (figure 2) qui pourrait sembler peu uti- 
lisé à priori, est un des passages obligatoires de Pascal. 
Il a été prédéfini de la manière suivante : 

TYPE BOOLEAN = (FALSE,TRUE); ainsi 
FALSE < TRUE avec FALSE pour faux, TRUE pour 
vrai. 
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UNNTET ET Z7ICTe7:\ 





Else 


Else 


Else 


END. 





On utilise souvent des variables booléennes 
dont le rôle est d'indiquer que telle ou telle condition est 
remplie. Par exemple, la variable STOP de la figure 2 
permettra l'affichage de messages tant que STOP sera 
égal à TRUE. 

Les booléens admettent aussi des opérateurs 
de relation AND (et), OR (ou), NOT (négation) auxquels 
Turbo Pascal (TP) ajoute XOR (ou exclusif). Les règles 
de fonctionnement de ces opérateurs sont données 
dans la figure 3. 


Les booléens sont utilisés implicitement dès 
que l'on teste une condition, en général exprimée sous 


la forme d'une expression : 
IF A=3 THEN ttt ELSE fff ; ici l'instruction IF teste la 
condition qui la suit. Si la variable A vaut bien 3, alors 
“"Az=3" est vrai donc vaut TRUE, sinon elle vaut FALSE. 
Si cette expression est vraie les instructions suivant 
THEN seront exécutées sinon ce seront celles qui sui- 
vent ELSE. 
FIGURE 2 : Le type booléen 
Program Demonstration Type Booleen; 
VAR 
Stop  : Boolean; 
Valeur : Integer; 


BEGIN (* Début & la démo sur les Booléens *) 
Stop := False; Valeur 
(* Les deux tests IF qui suivent sont identiques *) 
(* Test indirect d'un booléen *) 

If Stop = True then 
Writeln('STOP vaut VRAI.') 


:= 1; (* Initialisation des variables *) 


writeln('STOP vaut FAUX.'); 
(* Test direct d'un booléen *) 

If Stop then 

Writeln('STOP vaut VRAI.') 


writelLn('STOP vaut FAUX.'); 
(* Test d'une expression logique *) 
If Valeur < 0 then 
WriteLn ("Expression est vraie donc VALEUR est négatif.) 


writeLn ("Expression est fausse donc VALEUR est positif ou nul.'); 
(* On peut utiliser ORD, SUCC et PRED *) 
Stop := Succ (Stop) ; 
If Stop then WriteLn('SUCC (FALSE) = TRUE‘); 
WriteLn ("Rang de FALSE : 
WriteLn ("Rang de TRUE 
(* Fin de la démo sur les Booléens *) 


",Ord(False)); 
: ',Ord(True)) 


BEGIN 





Valeur, Diviseur, Multiple : 


(* Début de la démo sur les entiers *) 

(* Lecture de valeurs tapées au clavier *) 

Write ('Donnez une valeur ;entière:'})}; Readln (Valeur); 
Write (‘Donnez un diviseur: 
(* Utilisation d'opérations sur les entiers *) 
Writeln('Division entière: 


De même, l'expression "VALEUR<0" vaudra 
TRUE tant que VALEUR sera négatif, autrement ce sera 
FALSE. 

Il faut comprendre que tous les opérateurs de 
comparaison de deux types scalaires tels que "=", "<" 
(etc.) renvoient une valeur logique : TRUE quand la 
comparaison est juste, FALSE dans le cas contraire. 

Puisque les expressions comparant deux 
valeurs renvoient une valeur logique que l'on peut tester 
par IF, les valeurs booléennes pourront être testées 
directement comme le montre la figure 2. 

Un booléen est codé sur un octet. 


soosmsvecossusssssesesusdn nu une é 
! 

FIGURE 3: Les opérateurs de relation booléens . 
1 

" l 

Valeur opérateur Valeur = Résultat 1 
! 

TRUE AND TRUE = TRUE ; 
TRUE AND FALSE = FALSE | 
FALSE AND FALSE = FALSE l 
! 

TRUE OR TRUE = TRUE l 
TRUE OR FALSE = TRUE ; 
FALSE OR FALSE = FALSE : 
! 

! 

TRUE XOR TRUE = FALSE 1 
TRUE XOR FALSE = TRUE I 
FALSE XOR FALSE = FALSE | 
! 

! 

NOT ( TRUE ) = FALSE 1 

NOT ( FALSE ) = TRUE 

mme me me me ee ee me ee ee me ee on on on œue ou ee ee 0 en ou eu œu œe © © me ee ee ee me me ee ee mue J 


2) Type entier : INTEGER 


Ce type, (figure 4) est un ensemble fini de 
valeurs entières allant de -32767 à 32767 sous TP. Utile 
pour représenter des nombres peu complexes et assez 
petits, le type entier supporte les opérateurs mathéma- 
tiques suivants : 

+ (addition), - (soustraction), * (multiplica- 
tion), DIV (division entière), MOD (reste de la divi- 
sion entière ou modulo). 

Tous produisent des valeurs entières. Grâce 
aux parenthèses, on peut compliquer les expressions et 
donner une priorité à l'exécution de certaines opéra- 
tions. Là encore, les opérateurs de comparaison sont 
valides et produisent des valeurs logiques. 

Remarquez que TP accepte la représentation 
de nombres sous leurs formes décimales grâce à l'utili- 
sation du préfixe "$": la valeur héxadécimale $FF repré- 
sente 255 en décimale. 

Utimes précisions : TP ne vérifie pas les 
dépassements de capacité lors des opérations sur les 
entiers (!!!) et un entier occupe deux octets en mémoire. 


Integer; 


‘); Readln(Diviseur); 


",Valeur Div Diviseur); 


mme eme mem me me me me eme en en © ee ee me on me ee me me me ef 
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WriteLln('Division entière: 
Writeln; (* Pour sauter une ligne *) 


(* Manipulation d'expressions mathématiques *) 
Multiple := (Valeur Div Diviseur) * Diviseur; 


END. (* Fin de la démo sur les entiers *) 


pm mm 


3) Type octet : BYTE 


Voici un sous-ensemble, plus précisément un 
intervalle, du type INTEGER. En effet, une donnée du 
type octet peut prendre une valeur comprise entre 0 et 
255 ce qui aurait pû être défini ainsi : TYPE 
BYTE=0..255; 

Puisque BYTE est un sous-ensemble de INTE- 
GER, ces deux types sont compatibles et soumis aux 
mêmes règles. Une valeur du type BYTE n'occupe qu'un 
octet de mémoire. 


4) Type réel : REAL figure 5) 


Une valeur réelle est comprise entre 1E-38 
(1*10 exposant -38) et 1E38; elle peut donc avoir une 
partie décimale et être positive ou négative. 

Le type réel diffère des autres types scalaires 
parce qu'on ne connait pas le nombre de ses valeurs 
(entre 10 et 11 il y a une infinité de valeurs comme 10,1 
ou 10,0209) et qu'on ne peut définir ni le prédécesseur 
ni le successeur d'une valeur réelle. 

En conséquence, les réels ne peuvent pas ser- 
vir à indexer un tableau, ni être utilisés comme base 
d'un ensemble, ni comme variables de contrôle d'une 
boucle FOR ou d'un test multiple CASE. 

Si les fonctions PRED et SUCC ne supportent 
pas les valeurs réelles, en revanche les opérateurs 

+, -, *, / (division réelle) sont valides. De plus, la biblio- 
thèque mathématique de TP est bien fournie en 
fonctions que nous verrons prochainement. En atten- 
dant, la figure 5 vous montrera la manipulation des 
valeurs réelles. 

Un réel occupe 6 octets sous Turbo Pascal. 


FIGURE 5 : Le type réel 
Program Demonstration Type Reel; 


Var 
Nombre : Real; 


BEGIN (* Début de la démonstration sur les réels *) 


(* Lecture d'un nombre réel *) 


r 
1 

l 

l 

l 

1 

1 

1 

l 

1 

1 

! 

1 

! 

1 

l 

i 

| Write ('Tapez un nombre: ‘); Readln (Nombre) ; 

É (* Affichage du nombre selon deux formats *) 

! Writeln ('Représentation exponentielle: ‘,Nombre); 
; WriteLn (‘Représentation normale: ‘',Nombre:0:3); 
! (* Utilisation exclusivement mthématique *) 

! 
! 
l 
1 
1 
! 
1 
i 
l 
i 
l 
l 
L 


(* SQR(X) renvoie le carré de X *) 


(* SORT (X) renvoie la racine carrée de X *) 


Nombre := SORT (35 * ( SOR(Nombre) - 2 )}); 


Write ("Résultat de l''expression complexe: 


WriteLn (Nombre,' ou ',Nombre:0:5) 


END. (* Fin de la démonstration sur les réels *) 
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",Valeur Div Diviseur); 
Writeln('Reste de la division: ',Valeur Mod Diviseur); 


Writeln('Le Multiple du diviseur est: ",Multiple); 

Valeur := Multiple * ( ( Diviseur - 50 )*( 50 - Diviseur ) ); 
WriteLn ("Résultat d''une expression complexe: ',Valeur); 

(* Valeurs héxadécimales précédées de "$" pour Turbo Pascal *) 
Writeln ("Valeurs héxadécimales acceptées: $B7A = ",$B7A) 





5) Type caractère : CHAR figure 6) 


CP/M+ met à notre disposition 255 
caractères ordonnés conformément aux directives 
ASCII. Chaque caractère est représenté par un code 
ASCII : le code 65 correspond à la lettre ‘A (le jeu de 
caractères du PCW et les codes correspondants sont 
indiqués dans l'annexe 1 du manuel sur CP/M+). 

Remarque : les 32 premiers caractères ne peu- 
vent être affichés directement et doivent être précédés 
du caractère de contrôle ESCAPE (code décimal 27). 

Un caractère doit toujours être entouré d'apos- 
trophes, par exemple : "?’, ‘m' ou encore "9" (le caractère 
apostrophe se confondant avec les apostrophes qui l'en- 
tourent, on l'écrit deux fois :"""). 

Là encore, ORD renvoie la valeur entière cor- 
respondant au rang du caractère (identique au code 
ASCII): ORD('B") vaut 66. D'une manière opposée, la 
fonction CHR renvoie le caractère dont on a passé le 
rang en paramètre : CHR(66) vaut "B'. Les fonctions 
PRED et SUCC sont valides et renvoient le caractère 
précédent ou suivant celui passé entre parenthèses : 
PRED('G") vaut 'F', SUCC('F) vaut 'g'. 

Les caractères peuvent aussi être comparés 
les uns aux autres grâce aux opérateurs de comparai- 
son. 

Enfin, le signe "#" suivi d'une constante entière 
est équivalent au caractère ayant le code ASCII corres- 
pondant. 
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Var 
Reponse : Char; 
I,J : Byte; 


(* Procédure affichant le caractère dont 
le code ASCII est passé en paramètre *) 


Procedure Affiche Caractere (Rang:Byte) ; 


If Rang < 32 then Write(#27); 
Write (Chr (Rang),' ‘ ) 

End; 

BEGIN (* Début de la démonstration sur les caractères *) 
(* Affiche BONJOUR, les virgules ne sont pas nécessaires *) 
WriteLn(#66,#79,#78,#74,#79,#85,#82); 

WriteLn('Voici les caract}res du PCW:'); 
For I:=0 to 15 do 
Begin 
For J:=0 to 15 do 
Affiche Caractere(I*16+J); 
WriteLn 
End; 
Write (‘Tapez un caractère: '}; ReadLn (Reponse); 


WriteLn('Le code ASCII du caractère ',reponse,! est !,0Ord (Reponse) ); 


(* Testons le genre du caractère *) 

If (Reponse >= 'A'} and (Reponse <= 'Z') then 

WriteLn('Ce caractère est une lettre majuscule.'); 

If (Reponse >= 'a'} and (Reponse <= 'z'}) then 

WriteLn('Ce caractère est une lettre minuscule.'}; 

(* Voici une instruction bien plus puissante 

que If.Il s'agit de CASE (test multiple) *)} 

Case Reponse of 
‘A'..'Z' : WriteLn('Ce caractère est une majuscule.'}; 
la'..'z!' : WriteLn('Ce caractère est une minuscule.'); 
101..'9t : WriteLn('Ce caractère est un chifre.') 

End; (* fin du CASE *) 

WriteLn('N''oubliez pas que pour représenter l''apostrophe, ‘); 

WriteLn('il faut l''écrire deux fois.'} 

END. (* THAT'S ALL FOLKS !!! *) 


6) Type intervalle : 


Un type peut être défini comme un intervalle 
d'un autre type scalaire (réel exclu) en indiquant les 
bornes inférieures et supérieures séparées par deux 
points. 

Nous avons vu que le type BYTE était un inter- 
valle du type INTEGER et que sa définition correspon- 
daità: TYPE BYTE=0..255; 

L'intérêt de l'intervalle est qu'il permet à diffé- 
rents types d'être compatibles : 

Alors qu'il est illégal de définir : 

TYPE JOUR-=(Lundi Mardi, Mercredi Jeudi, 

Vendredi,Samedi,Dimanche); 


DEBUT_SEMAINE-=(Lundi, Mardi Mercredi); 
WEEK_END-=(Samedi, Dimanche); 
on peut utiliser les intervalles : 
TYPE JOUR-(Lundi Mardi Mercredi Jeudi, 
Vendredi, Samedi, Dimanche); 
DEBUT_SEMAINE=Lundi.Mercredi; 
WEEK_END=Samedi..Dimanche; 
L'intervalle rend le contrôle des variables plus facile. 
Ainsi une variable contenant le nombre d'heures de pré- 
sence par jour d'un employé se verra affecter des 





valeurs allant de 0 à 24 heures; les dépassements de 
capacité sont limités : 

TYPE HEURES _PRESENCE=0..24; 
Les intervalles sont aussi très utilisés pour indexer les 
tableaux. 





La fonction ORD du Pascal standard est utili- 
sée pour convertir des valeurs de types scalaires en 
valeurs entières. À part la fonction CHAR pour les 
caractères, il n'est pas possible de convertir un entier en 
une valeur scalaire. 


Turbo Pascal enrichit les possibilités de 
conversion. En effet, il autorise la conversion d'une 
valeur d'un type scalaire en une valeur d'un autre type, 
mais de même rang. La syntaxe est : identificateur du 
type attendu suivi par une valeur scalaire passée entre 
parenthèses. Voici quelques exemples utilisant les types 
VISUALISATION, IMPRESSION et JOUR définis précé- 
demment : 


CHAR(67) renvoie ‘C' 

BYTE("C') renvoie 67 
INTEGER(GRAPHIQUE) renvoie 2 
IMPRESSION(0) renvoie MATRICIELLE 
JOUR(3) renvoie JEUDI 





LES PROGRAMMES DE CET ARTICLE SE 
TROUVENT SUR LA DISQUETTE ECHO N°21. 
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Digital Research, les créateurs del 
CP/M, ont adapté, aux CPC et PCW, ] 


ce logiciel déjà ancien, mais éprouvé.i 
qu'est DR Draw. Allié à une souris, à un! 
stylo optique ou à une tablette gra} 


phique, les résultats sont-ils à la hauteur1 


pee mm 


Micro C oppose au précédent un must, qui 
aussi éprouvé sur les CPC à même conquit 
l'Angleterre en reprenant sans vergogne la 
philosophie des logiciels tournant sous 
Macintosh ou, plus près de nous, sous GEM 
de la gamme PC. Plus adapté à une utilisa- 
tion avec souris, saura-t-il nous convaincre 
de sa supériorité ? 


de nos espérances ? DJ 
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Priorité à l'aîné des deux logiciels de Dessin Assisté 
par Ordinateur présentés aujourd'hui : 


DR DRAILL 


Apparu sur le marché français début 1986, en 
anglais, Digital Research, fidèle à lui-même, y utilise au 
mieux son système d'exploitation CP/M+ , pour une présenta- 
tion soignée, et fait appel à G.S.X. (Graphic System 
eXtension) pour la partie graphique. Le lien avec une interface 
- Souris, crayon optique, tablette graphique - se fait très sim- 
plement, lors de la procédure d'installation et de lancement 
automatique, expliquée dans le guide de l'utilisateur. Un très 
bon point pour Digital Research en ce qui concerne le 
manuel, qui entièrement traduit - est clair et didactique. 

Une présentation soignée, donc, à l'aide de menus 
affichés en permanence en haut, sur deux lignes dont la 
deuxième ligne étant soit pour un sous-menu, soit pour afficher 
des informations indiquant les actions possibles en langage 
‘souris’ : "PICK" pour sélectionner, et 'DONE'" pour fin. À ce 
sujet, il est dommage que les messages s'affichant à l'écran 
soient en anglais et non en français ! Qu'à cela ne tienne, il est 
facile de remédier à ce petit défaut puisque le fichier 
DRMSG80.TXT contient tous les messages en question, et il 
suffit de le récupérer sous éditeur (EDIT 2000 par exemple) 
pour le franciser. 

La prise en main est facile et rapide du fait d'un 
nombre réduit de menus et sous-menus. Un Menu Principal 
présente sept fonctions, dont une appelle un sous-menu indé- 
pendant, trois conduisent à un Menu d'édition présentant lui 
aussi sept fonctions, dont deux seulement appellent un sous- 
menu, pour lesquels des sous-menus secondaires peuvent 
apparaître. 

Au delà de l'aspect convivial, quelles sont les possibilités gra- 
phiques dont nous disposons ? Une réponse facile serait : 
toutes celles de G.S.X. … Mais il faut précisez. Les primitives 
graphiques disponibles sont : lignes, rectangles, polygônes, 
cercles et arcs de cercles, remplissage des éléments fermés 
avec différentes trames (une dizaine). 

Les différents types de marqueurs sont aussi dispo- 
nible et permettent la mise en évidence de certains éléments. 
L'écriture n'a pas été oubliée : on peut positionner un texte à 





un endroit quelconque, avec un choix de plusieurs polices de 
caractères graphiques, dont huit sont fournies, et avec la taille 
de son choix. Quant à la mise en page et aux manipulations 
sur les éléments de dessin on dispose d'un zoom et d'un pano- 
ramique permettant de déplacer le cadre de la fenêtre de tra- 
vail horizontalement, verticalement ou en diagonale, des fonc- 
tions : copie, ajout, déplacement, agrandissement, déforma- 
tion, suppression, rappel du dernier élément supprimé et de 
changement d'échelles. 


Le principe de travail sur un élément sélectionné ne 
permet pas de travailler sur un ensemble de différents élé- 
ments, mais on peut sélectionner, tour-à-tour, les éléments 
voulus. On peut même jouer à cache-cache avec des élé- 
ments se chevauchant, grâce à des fonctions comme le rem- 
plissage vide ou le changement de plan d'affichage pour un 
élément du dessus ou du dessous. On peut ainsi simuler le 
relief en cachant des parties arrières. 

Pour ce qui est du dessin libre, on peut placer de 
façon très précise le curseur graphique sur une grille de points 
dont la densité est modifiable et qui ne sert que de guide. Les 
figures géométriques sont les plus simples et les plus rapides 
à créer. 
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Une fois le travail sauvegardé, on peut le diriger, au 
choix, vers l'imprimante ou une table traçante permettant d'ob- 
tenir des documents de grande qualité. I| manque cependant 
des fonctions de rotation, d'effet miroir, et un mode “point par 
point" rapide. 

Malgré une certaine lenteur, voir une certaine lour- 
deur, dues à l'ancienneté de la conception du "fameux" G.S.X., 
DR Draw reste un outil très professionnel que son aspect froid 
ne démentira pas. 

Il semble plutôt destiné à résoudre des problêmes 
de communication pour des commerçants, industriels, profes- 
sions libérales, étudiants ou particuliers, désireux de produire 
Simplement des diagrammes, affichettes, couvertures de rap- 
ports et tableaux divers. 


PCIU PAINT 


Au tour du cadet, produit de Micro C, PCW Paint lle 
magnifique’. Apparu sur le marché fin 1986, discrètement, ce 
logiciel 100% français utilise une conception plus moderne à 
base d'icônes et menus déroulants. Tournant sous CP/M+, 
entièrement conçu en Turbo Pascal, il est rapide, et non 
moins convivial, et se passe allègrement de "G.S.X.'. Au char- 
gement, il détecte automatiquement la présence de la souris - 
dans sa dernière version - (Kempston, Electric Studio, 
AMX). Par contre, il faut récupérer le mode d'emploi sous 
locoscript et l'imprimer pour découvrir tous les secrets de ce 
petit bijou (je sais, je m'emporte...). Ceci fait, s’il n'est pas très 
épais, s'il n'est pas non plus didactique, il est tout de même 
clair et complet. 

Quant au logiciel, son lancement donne le frisson (la 
première fois seulement pour les blasés, à chaque fois pour 
les passionnés). Il faut voir ce ‘scrolling' de l'écran qui vous 
arrive dessus pour comprendre qu'on est pas là seulement 
pour rigoler. Plus que soignée, la présentation fait carrément 
oublier qu'il s'agit seulement d'un PCW. L'écran est toujours le 
même, en dehors de la fenêtre de dessin. Une ligne, en haut, 
présente sept options d'un unique Menu principal affiché en 
permanence. À gauche de l'écran, deux colonnes de neuf 
icônes chacune, représentant les outils et fonctions de bases. 
En dessous, à gauche, cinq épaisseurs de traits au choix. 
Sous la fenêtre de travail, un choix de trente deux trames utili- 
sables par tous les outils, et que l'on peut même mélanger, 
dans une certaine (dé)mesure, pour obtenir quarante remplis- 
sages différents. 

La trame courante sélectionnée est affichée dans un carré à 
gauche des trames. L'épaisseur de trait sélectionnée est mar- 
quée par un petit signe (style Locoscript). L'outil de dessin 
et/ou la fonction sélectionné(s) est une icône en vidéo inverse. 
Plus simple, on ne fait pas. 





ESSAI DE TEXTE POUR EFFET DE MIROIR 
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Et quel tableau de bord : crayon, bombe aérosol, 
gomme, pinceau, robinet et double trame pour les outils de 
base, représentés par des icônes évocatrices. Non moins évo- 
cateurs : une main permet de déplacer la fenêtre de travail sur 
l'ensemble du document en cours; un rectangle pointillé per- 
met de sélectionner un élément que l'on veut manipuler 
(déplacer); une lettre permet de sélectionner le mode texte; un 
trait, des rectangles, ellipses, cercles et polygones, vides et 
pleins, permettent de dessiner les formes géométriques habi- 
tuelles, très rapidement et, avec une certaine habitude, très 
précisément. Voilà toutes nos icônes décrites. 

Précisons toutefois que pour chaque outil ou 
fonction sélectionnée, la trame et l'épaisseur de trait courantes 
sont actives (s'il y a lieu). 


Voyons maintenant ces options de la ligne du haut. 
La première est une petite cerise (pour rappeler que PCW 
Paint est une adaptation de ‘Cherry Paint’ sur CPC), et en cli- 
quant dessus, apparaît un menu déroulant avec deux choix : 
information (pub), et retour à CP/M (avant il faut impérative- 
ment avoir sauvegardé son travail, sinon...). Ensuite, cliquons 
sur ‘Fichier’. Le menu déroulant propose huit options : sauve 
l'image, charge une image, efface une image, catalogue, nou- 
velle page, formate (au format standard PCW 8256-8512, en 
A:), impression rapide (simple passe) et impression soignée 
(triple passe). Pas de commentaire! Passons au menu 
‘Edition’ qui propose les fonctions classiques de manipulation 
d'une zone d'écran, sélectionnée préalablement à l'aide du 
‘cadre pointillé’, à savoir : coupe, copie, colle, inverse, efface, 
mais aussi miroir horizontal et miroir vertical! Ensuite, le menu 
‘Facilités', qui porte bien son nom, puisqu'il nous facilite la 
mise au point de nos (chefs d'oeuvres avec l'option ‘page 
entière’ pour tout admirer (mais en réduction) dans une nou- 
velle fenêtre; avec l'option ‘défait’ pour annuler une dernière 
action malheureuse; avec la ‘loupe’ pour travailler au pixel 
près; et enfin les ‘pinceaux' qui sont huit formes différentes. 
Enfin, les trois derniers choix, ‘Caractères’, Taille’ et Style’, 
sont tous destinés au mode écriture, et permettent de choisir 
un jeu de caractères parmi ceux présents sur le disque, de 
choisir la taille des lettres (normale, double, triple ou qua- 
druple), et de choisir le style d'écriture (gras, italique, relief et 
souligné) avec toutes les combinaisons possibles. 

Ajoutons pour finir, qu'un générateur de polices de 
caractères pour PCW Paint est présent sur la disquette de dis- 
tribution, ainsi d'ailleurs que trois autres utilitaires fonctionnant 
directement sous CP/M : un afficheur en continu de différentes 
images produites par le logiciel, un afficheur simple d'une 
image créée par le logiciel, un programme de récupération 
d'images créées sur CPC. Ces trois derniers utilitaires sont 
accompagnés de leurs sources en Turbo Pascal. 


Résolument tourné vers la création d'oeuvres d'art, 
d'un aspect convivial qui rappelle un ‘look’ cher à un certain 
ordinateur, c'est le roi de la D.A.O. sur PCW. En résumé, du 
grand, du très bon logiciel, dont je ne me lasserai jamais, d'au- 
tant plus qu'il est un partenaire privilégié de DTP-PAO et de 
Masterscan. Et je ne vous ai pas encore parlé de son prix... 
Allez, un petit défaut quand même : pas de possibilités de 
changer le format d'impression. 


FICHES TECHNIQUES 

TYPE LOGICIELS DE D.A.O. 

NOM DR DRAW PCW PAINT 
EDITEUR DIGITAL RESEARCH MICRO C 
PRIX PUBLIC  649F TTC 345 F TTC 
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Donner plus de puis- 
sance à DBASE II est 
Impossible sans l'em- 
ploi du langage machi- 
ne et de ces fanta- 
tisques possibilités. 
Le troisième et dernier 


METTEZ 


UN TIGRE 
DANS VOTRE 


DBAS 





ou comment créer de nouvelles fonctions en Langage Machine 





5, QUELQUES FONCTIONS 
UTILES en LANGAGE 
MACHINE (suite) 


5.4 INITIALISATION ET CONTROLE 


DE LA DATE DU JOUR. 


Nom : INIDATE 





Adresse d'entrée : 42556 
Adresse de sortie : 42555. 


PEEK(42555) contient O si la date est vali- 
de et non vide, 255 dans le cas contraire. 


Profession : Contrôle de la date du 
jour. 

Si dBase est lancé sous CP/M par la 
banale commande DBASE, la date du jour est 
demandée et sa validité est contrôlée en entrée. 
Mais si un nom de programme suit, comme dans 
DBASE NOMPROG, la date du jour n'est plus 
demandée. 


Signes particuliers :  Nécessite le chargement 
préalable de VERIDATE (voir ECHO N°20). 


Attention ! Il importe de s'assurer lors d'ac- 
cès successifs à un même programme que la date 
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se 
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du jour n'est pas antérieure à celle d'une précé- 
dente utilisation. CALL n'acceptant qu'un seul 
paramètre, il n'est pas possible de confier cette 
tâche à l'utilitaire langage machine INIDATE. 
L'astuce consiste à stocker la date du jour dans un 
fichier mémoire par la commande 

SAVE TO A:DATEJOUR et à la rappeler par 
REST(ore) FROM A:DATEJOUR (si A: est votre 
disque de travail dBase Il). Une bonne fois pour 
toutes, entrez les commandes suivantes, 

où JJ.MM.AA représente la date du jour : 


release all 

store "JJ.MM.AA" to jourdhui 
save to a:datejour 

modify command datejour 


Après chargement de INIDATE, saisissez 
le programme DATEJOUR et lancez le par 
DO DATEJOUR. 


* INIDATE.CMD 


poke 42556,229,33,56,166,54,0,35,54,48,35,54,48,225,205,160,165 
poke 42572,33,59,166,32,2,54,255,126, 183,192, 33, 54,166,114, 35,115 
poke 42588,35,113,121,6,0,24,3,4,214,10,254,9,48,249, 198,48 
poke 42604,35,35,119,43,62,48,128,119,201 


INIDATE .ASM 

veridate equ OASAOh 
jourdhui equ 0A636h 
anncour equ 0A638h 
datetest equ 0A63Bh 


org 0A63Ch 


INIDATE : 
push hl 
ld hl,anncour 
ld (h1),0 3 Met a zero l'annee courante, 
inc hl 
ld (h1) ,'0" 
inc hl 
ld (h1) ,'0' 
pop  hl 
call veridate ; Controle date du jour. 
ld hl,datetest 
jr nz,ini10 3 Si date vide, alors erreur. 
ld (h1),255 

inil0: ld a, (hl) 
or a ; Si inœrrecte, alors retour. 
ret nz 
ld h1, jourdhui 
ld (h1),da ; Stocke la date du jour 
inc hl 
ld (hl),e 
inc hl 
ld (hl),c 
la a,c >  Transforme l'annee en caracteres. 
lda b,0 ; Initialise nonbre de dizaines 
ir ini30 ; et cree la chaine de caractere 


ini20: inc b annee courante. 


DT 





sub 10 ; Division de l'annee par 10 -> 
ini30: cp 9 ; nombre de dizaines en b. 

jr nc,ini20 

add a,'0" ; Le reste = unites. 

inc h1l 

inc hl 

ld (hl),a >; Stocke le car.unites. 

dec hl 

la a,'O0' 

add a,b ; Prend le nombre de dizaines. 

ld (h1) ,a ; Stocke le car.dizaines. 

ret 

end 









5.5. VALEUR ABSOLUE D'UNE 
VARIABLE NUMERIQUE. 


ABSOLU 


Nom : 


Adresse d'entrée : 42615 

Signes particuliers : Le type de la variable est 
contrôlé, mais aucun message n'apparaît en cas 
d'erreur de type. 

On peut déplorer l'absence dans dBase 
d'une fonction analogue à la fonction ABS() du 
Basic, qui rend une valeur positive quel que soit le 
signe du paramètre d'entrée. L'utilitaire appelé 
ABSOLU permet d'éviter certaines acrobaties. 
Voici un exemple d'utilisation avec un fichier de 
données dont la structure comporterait entre 
autres les champs LIBELLE (caractères), HT, 
TVA et TTC (numériques) : 

set call to 42615 
store ht to mht 
store tva to mtva 
store ttc to mttc 
call mht 
call ntva 
call ntte 
do case 
case libelle = "FACTURE" 
repl ht with mht, tva with mtva, tte with nttc 
case libelle = "AVOIR" 
repl ht with -mht, tva with -mtva, tte with -ntte 
endcase 
release mht, mtva, nttc 


p=———_—_— meme me en me mn me me mg 
Lommmmmmmmmmmmmmm_…î 
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org 0A677h 


ABSOLU : 

ld a,h 

and 80h ; Si pas de parametre, 
ret nz ; alors, retourne. 
dec hl 

la a, (hl) 3 Si octet precœædant le parametre 
cp 6 3 © 6, alors n'est pas un nombre. 
ret nz 


Premier octet du nombre. 


b- 
D 
a 
= 
FF 


and 7fh ; Met a Zero le bit de signe. 
ld (h1),a 

ret 

end 


5.6. REMISE A ZERO D'UN FICHIER 
DE DONNEES. 





Nom : ZEROFIC 
Adresse d'entrée : 42360 
Profession : Videur. 


ZEROFIC permet de vider un fichier de 
tous ses enregistrements, beaucoup plus rapide- 
ment que par la séquence d'instructions : 
DELETE ALL / PACK. 


Les enregistrements ne sont pas détruits physi- 
quement, mais une marque de fin de fichier est 
placée en tête du premier enregistrement. En 
conséquence, le fichier occupera toujours la même 
place sur le disque. 


Signes particuliers : - Ne fonctionne que sur 
des fichiers de données au format dBase (en prin- 
cipe xxxx.DBF). 

- Met le fichier à la date du jour (le grand luxe). 

- Détection des noms de fichiers invalides (carac- 
tères jokers interdits) et des fichiers non dBase, 
mais sans message d'erreur. 

- Le chargement préalable des programmes 
VERIDATE et INIDATE est impératif. 

- Le nom de fichier doit obligatoirement comporter 
le nom du disque (a:, b: ou m:) et l'extension 
(généralement .DBF). 


Précaution importante : 


Il est indispensable, pour éviter un fonctionnement 
capricieux et imprévisible, de fermer tous les 
fichiers avant de se servir de cet utilitaire. 





rs 
select prim 

i use 

select seco 

l use 

set call to 42630 

| store “<u:nom de fichier.ext>" to nomfic 

1 call nomfic 

L 


Lommmmmmmm—…m 


où u: est le nom de l'unité de disque 
(a: , b: ou m:) et .ext est l'extension (.dbf) 


Pour vérifier, tapons : 


momo me me mc ces ue eo un ou © uno un su © eu © mu © mu © mn 


poke 42630,126,230,128,192,35, 34,248, 166,17,248,166,14,152,205,5,0 
poke 42646,35,125,180,200,17,36,167,14,26,205,5,0,17,252, 166, 14 
poke 42662,15,205,241,166,60,183,200, 14,33, 205,241, 166,183, 32, 58,58 
poke 42678,36,167,254,2, 32,51, 62,4, 50,29, 167, 14,33, 205,241, 166 

poke 42694,183,32,38,58,247,166, 50,45, 167,14,34,205,241,166,175, 50 
poke 42710,29,167,14,33,205,241, 166,213, 33, 52,166,17,37,167,1,5 
poke 42726,0,237,176,209,14,34,205,241,166, 14, 16,213,205, 5,0, 209 
poke 42742,201,26,0,0,252,166 


to 
ROUTIES 
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nbrenr equ 0A634h 


org 0A686h 


ZEROFIC: 
ld a, (hl) ; Si pas de parametre, 
and 80h ; alors, retourne. 
ret nz 
inc hl ; Pointe sur chaine nom de fic. 
la (adrfcb) ,h1l 
ld de, adrfcb 
ld c, 98h ; Construit nom de fichier 
call 5 ; pour lecture/ecriture. 
inc h1 ; Si nom de fichier invalide 
ld a,l ; exemple car. joker interdits 
or h ; alors, HL = OFFFFh 
ret Z ; et sortie 
la de, dma 
ld c,lah ; Positionne adresse DMA 
call 5 
ld de, fcb 
ld c,Ofh ; Ouvre fichier 
call bdosfon 
inc a 
or a ; Si erreur d'ouverture 
ret Z ; alors, quitte 
ld c,21h ; Lit premier bloc de 
call bdosfon ; 128 octets. 
or a ; Si erreur de lecture 
jr nz,ferme ; ou 
ld a, (dma) 
cp 2 ; Si le premier octet © 2, 
ir nz, ferme ; alors fichier non dBase. 
ld a,4 ; Se positionne sur le 4eme 
ld (£cb+21h),a ; bloc du fichier (4*128-512). 
la c,21h ; Lit ce bloc de 128 octets. 
call bdosfon ; Si erreur & lecture (fichier 
or a ; trop petit = n'est pas dBase), 
ir nz, ferme ; alors, retour avec mes. d'erreur 
la a, (eof) ; Met une marque de fin de 
la (dma+9),a ; fichier au debut du ler enr. 
la c,22h ; de dBase. 
call bdosfon > Ecrit œ bloc dans le fichier 
XOr a ; Se positionne de nouveau 
ld (£fcb+21h),a ; au debut du fichier. 
ld c,21h ; Relit le premier bloc de 
call bdosfon ; 128 octets. Transfere le 
push de 
la hl,nbrenr ; Transfere nombre d'enr. (0) 
ld de, dma+1 ; sur 2 octets et date du jour 
la be, 5 ; (3 octets) vers zone a partir 
ldir ; du 2eme octet du DMA. 
pop de 
ld c,22h 
call bdosfon ; Ecrit le bloc sur le fichier 
ferme: ld c,10h ; Ferme le fichier 
bdosfon : 
push de ; Appel fonction BDOS 
call 5 ; avec sauvegarde du registre 
pop de ; DE (contient adr. du FCB) 
ret 
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eof: 

db lah 
adrfcb: 

dw 0 

dw fcb 
£cb: 

ds 80h 
dma equ fcb+40 

end 









à L NT à 
5.7. RECUPERATION D'UN FICHIER 
VIDE PAR ERREUR. 
Nom : ZEROFIC 
Adresse d'entrée : 42630 


Signes particluiers : 
d'un fichier) 


voir ci-dessus (vidage 


Cette fonction est l'opposée de la précé- 
dente et elle utilise la même routine en langage 
machine. Elle permet de récupérer un fichier vidé 
par erreur, soit par la fonction précédente, soit par 
un emploi malencontreux de : 

MODI(fy) STRU(cture), à condition toutefois que 
les longueurs des champs n'aient pas été modi- 
fiées. Deux cas peuvent se présenter : 


Vous connaissez le nombre d'enregistre- 
ments du fichier à restaurer. 
La procédure qui suit permet de "restorer” intégra- 
lement un fichier dBase : 


select prim 

use 

select seco 

use 

set call to 42630 

store <nombre d'enregistrements> to ne 
store “<u:nom de fichier.ext>" to nomfic 
poke 42548, ne-256*int(ne/256), ne/256 
poke 42743,32 

call nomfic 

poke 42548,0,0 

poke 42743,26 


Co oo oo em 
Le ous on one one me m0 ee me me me me me ee me me me me me me me on me où me me en of 
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D) Vous ignorez le nombre d'enregistre- 
ments du fichier. Dans ce cas, la procédure est un 
peu plus longue, car le fichier restauré n'est pas 
directement utilisable. Cependant, son contenu 
peut être récupéré à condition d'être copié par 
l'instruction COPY TO. 


select prim 

use 

select seco 

use 

set call to 42630 

store "“<u:nom de fichier.ext>" to nomfic 
poke 42743,32 

call nomfic 

poke 42743,26 

use £énomfic 

copy to <u:fichier temporaire> 

use 

delete file £&nomfic 

rename <u:fichier temporaire> to &nomfic 


6. EN GUISE DE 
CONCLUSION 


Ces programmes ont été donnés par petits 
morceaux afin que chacun puisse être testé sépa- 
rément. On évite ainsi la saisie de trop longues 
séries de POKESs avec les risques d'erreurs qu'elle 
comporte. Une fois les tests couronnés de succès, 
il serait judicieux de fusionner ces routines en un 
fichier de commande unique qui aurait pour nom 
DEPART.CMD. Un tel fichier aurait l'avantage 
d'être exécuté en bloc. Les adresses d'entrée des 
routines sont inchangées. Pour cela, sous CP/M, 
tapons (en une fois en mettant toujours 
INKEY.CMD en tête de liste) : 


pip depart .cmd=inkey.cmd, repetcar. 

cmd, ma juscul.cmd,compacte.cmd, veridate. 
cmd, inidate.cmd,absolu.cmd,zerofic.cmd, 
date jour.cmd 


La première commande à exécuter dès le 
lancement de dBase devient désormais 
DO DEPART. Il est vivement recommandé de pla- 
cer cette commande en tête du fichier initial de 
toute application. 


Nous espérons que la connaissance des 
instructions langage machine et les exemples pré- 
sentés ici apporteront un sang neuf à votre 
dBase Il. Les rois du langage machine auront noté 
qu'il reste encore beaucoup de place pour implan- 
ter des routines personnelles entre les adresses 
43005 et 49152 (en hexadécimal A7FD à CO00), 
tout en laissant libre l'espace nécessaire à une 










ss Sn 
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éventuelle installation de GRAPHIC MAGIC. 


Un dernier mot à l'intention des ingrats qui 
envisageraient de remplacer un jour leur PCW par 
UN sure (1). I existe une quasi-portabilité entre 
dBase Il et dBase Ill. Il faut entendre par là que 
les fichiers de commande (XXX.CMD) créés pour 
dBase Il pourront tourner sous dBase III, moyen- 
nant quelques modifications mineures de syntaxe. 
L'ouvrage "Clés pour dBase Il et III" de Michel 
Keller chez PSI constitue une aide précieuse pour 
une telle traduction. Pour une très grosse applica- 
tion de gestion, une à deux heures de travail 
devraient suffire pour cette adaptation, ce qui est 
très peu comparé au temps passé à la mise au 
point proprement dite de l'application, des jours et 
des nuits sans doute. Les fonctions décrites ici ne 
devraient pas remettre en cause cette pseudo-por- 
tabilité, car elles sont pour la plupart directement 
inspirées de fonctions existant en dBase lil. 


(1) CENSURE. Toute allusion à un quelconque PC compatible serait 
déplacée dans ce journal. 
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es anglais font trop de salons sur 
STRAD. Trois par ans, deux à 
dres, un à Manchester, ce qui était 

i fête tant attendue est devenue en 
dis ans ce que l'on fait de plus fade en 
itière d'exposition. 

ÿ publicité le disait bien : Plus de 
nds, plus d'espace et plus d'économie 
our un dixième AMSTRAD SHOW 
enu à l'Alexandra Palace sur une colline 
verdoyante surplombant le grand 
Londres les 26, 27 et 28 Mai derniers. 


remière erreur, l'absence complète de nouveauté. 

PPC, 9512, chaînes laser, rien que du déjà vu. 
par À. FRIEDRICH Amstrad semblant avoir oublié que sa popularité 
D D DU D nu tenait aux évènements qu'il avait su créer en 
matière d'innovation et la douce léthargie qui a 
envahie ce nouveau géant n'est pas du goût de 
tout le monde. 









Seconde erreur, les éditeurs ne firent rien pour 
contrecarrer cette somnolence. Que ce soit sur 
PPC, CPC, PCW, PCW rien ne méritait cette 
exclamation de surprise qui nous vient du fond du 
coeur. Du réchauffé, rien que du réchauffé. 





Troisième erreur, le surdimensionnement du mar- 
ché. Trop de revues et trop d'expositions ont coû- 
> tées très chers à un marché particulièrement 
concurrenciel où les trésories les plus saines ont 
vacillées sous le poids des contraintes promotion- 
nelles. Et les constructeurs de se lamenter... "Si 
nous ne sommes pas massivement présents, on 
prendra notre place”. 


Les consommateurs anglais pouvaient- 
h ils vraiment absorber la masse consi- 
es _ dérable de logiciels et d'extensions mis 
#"* | à leur disposition en si peu de temps ? 
Pas vraiment et pour preuve, les entre- 
prises tombent comme des mouches. 


ans le petit monde du PCW, on compte déjà les 
morts : NABITCHI d'abord, dont la cessation d'ac- 
tivité a semé l'émoi, DK'TRONICS ensuite dont les 
interfaces firent un triomphe et dont la disparition 
est tout un symbole enfin, PSL le distributeur euro- 
péen d'ELECTRIC STUDIO qui disparaît en lais- 
sant ce dernier revenir à une vision plus locale de 
sa grandeur passée. ” 
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CR LL LL LD LL LD 1 1 


ombre tableau qui a fait prendre conscience à cer- 
tains que le raliement à une seule marque n'était 
pas toujours une bonne affaire. 


Isentein ou la reconversion d'un passionné. 
David RATHBONE (ex- patron de NABTI- 

CHI) croit, dur comme fer, au premier PCW 
8512 portable. ODESSA 8512 est encore à 


! 

ol 

! 

! 

! 

! 

! 

| 

! 
0) # ! 
l'état de pré-production et sera vendu "Tout!" affirme un survivant. "L'épuration est un 
6000 F. Ÿ a-t-il preneur ? Y ji 


Alors dans tout cela, quoi de positif ? 


phénomène normal, on a trop pensé que ce 
marché était une corne d'abondance et les 
erreurs ont été sévèrement sanctionnées. En 
somme il ne restera que les meilleurs pour 
servir une véritable demande pour un maté- 
riel qui fonctionne tout de même dans des 
milliers de foyers et d'entreprises. Le marché 
est maintenant mature. Les entreprises 
saines restent, les autres disparaissent, l'in- 
formatique n'est plus une passion dévorante 
pour laquelle les gens achètent n'importe 
quoi à n'importe quel prix. Les besoins sont 
identifiés, les utilisateurs ont acquis une cer- 
taine compétence et surtout une expérience 
qui leur faire faire des achats utiles et raison- 
nés qui n'ont pas forcément lieu dans une 
foire mais chez un revendeur compétent et 
ce, toute l'année...” 




























| Un constat de sage en somme, mais il 
est le reflet d'une réalité qu'il ne faut en 
aucun cas nier. AMSTRAD folie, c'est 
bien fini. La micro est enfin mûre et 
chacun veut travailler et l'AMSTRAD 
EXPO devra en tenir compte s'il veut 
s'assurer le succès qu'il merite... 


La morosité d'un marché n'empêche pas 
AB PENDAAL de KEMPSTON DATA 
d'avoir le sourire. "Ma souris est au PCW 
ce que la formule 1 est à la voiture alors 
pourquoi s'en faire ???" 


a 


MARGIN MAKER est heureux, toute la 
famille est réunie autour du seul produit de 
la maison: le MM3 dont le succès de se 
dément pas et pour cause: c'est pratique, 
astucieux et vraiment utile... 
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sense ni Rene FANTASTIQUE: He 


Les EXCLUSIFS DE L'ECHO ont reçu au près de vous un accueil fantastique qui 
mérite d'être signalé. La formule se muscle avec quelques nouveautés d'aussi 
fabuleuse qualité. 


Hannah ins CABNAREE rrannssesnssininmnins 
Le gagnant de la prime du mois n'est autre que l'admirable TONY LUZY pour 


sa visite dans les entrailles de DBASE II. Travail remarquable qui lui vaut une 
des notes les plus hautes jamais obtenues. Bravo ! 















Pour vous év 
votre vie, l'ECH 
de lui. 

Répondez 
le contenu 


Novembre 88, sont 
toute candidature 
Qualités requises : 


sn enn sn snn ss ss sense sense esse ses ce 


ll semble que la distributio 
faite et nous y remédions 
provisionnement. Pour no 
je, nous supplions nos lect: 
ceptibles d'améliorer la m 
pas au courant, Maisons 
Amis lecteurs, c'est le mo 


Une nouvelle version du serveur ECHO (1-48.67.62.25) vient d'être remise en 
fonctionnement. Certaines rubriques ont été créés et d'autres enterrées... 
Enfin l'important est qu'il marche … et sur un PCW en prime. 


Voilà, voilà, j'en termine ici avec ma mission de porte-parole du journal qui 
füt, pour une fois, bien chargée mais que voulez-vous, il faut bien que je tra- 
vaille un peu de temps en temps ! 


Pierre PAND 
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GLE 


RUBANS POUR IMPRIMANTES 








“RUBANS PCW 9512 MULTISTRIKE 
LONGUE DUREE EXTRA NOIRS 


PAR 3 PIECES 
60 F L'UNITE* 


(SOIT 180 F TTC PAR 3 DONT TVA 18,6% = 28,23) 


* MEMBRES DU CLUB ECHO 55 F L'UNITE 
(SOIT 165 F TTC PAR 3 DONT TVA 18,6% = 25,88] 


ET TOUJOURS POUR 8256/8512 
LES RUBANS SUPERS NOIRS... 
PAR 3 PIECES 

65 F L'UNITE* 
(SOIT 195 F TTC PAR 3 DONT TVA 18,6% = 30,58) 


* MEMBRES DU CLUB ECHO 60 F L'UNITE 
{SOIT 180 F TTC PAR 3 DONT TVA 18,6% = 28,23) 


ET LES RUBANS COULEUR LONGUE 
DUREE POUR PCW 8256/8512 
COULEURS DISPONIBLES : ROUGE, 


BON DE COMMAND 











NOM : PRENOM : BLEU, MARRON, VIOLET, VERT, ORANGE 

ADRESSE : À L'UNITE 
*k 

CODE : VILLE : 150 F 


(DONT TVA 18,6% = 23,52) 
* MEMBRES DU CLUB ECHO : 100 F L'UNITE 


COMMANDE PAR LA PRESENTE : 


























X X = 

a en ie NN 
x 3 RUBANS NOIRS PCW 9512 À 165 F LES 3 SOIT X165F = ) 
x 3 RUBANS NOIRS PCW 9512 À 150 F LES 3 SOIT x 160: F° = 

COULEURS : ___xROUGE x BLEU x MARRON X VIOLET __XVERT __xORANGE 
x RUBAN COULEUR PCW 8256/8512 À 150 F PIECE SOIT x150 F=2 
x RUBAN COULEUR PCW 8256/8512 À 100 F PIECE SOIT X TO0F® =. 








AJOUTEZ LES FRAIS DE PORT : TOTALGENERAL : 
15 F POUR LA FRANCE - 30 F ETRANGER ET DOM TOM (PAR AVION) 

© PRIX SPECIAL CLUB ECHO DU PCW (INDIQUEZ VOTRE N° : CE... ) 

Ci-joint règlement à LOGI'STICK par LICHEQUE MANDAT CCP [JVISA/CARTE BLEUE 


N° CARTE LL LD D OL LOU OU OL | | ! | | | | | ] 
Validité : / / 



































Service Entreprises: Ÿf 


N'attendez pas pour inscrire votre entreprise en retournant ce jour le bon ci-dessous à : 


O 


© 
O 


LOGTSTICK - CAPN LE BONAPARTE - BOITE 49 - 93153 LE BLANC MESNIL CEDEX 





SOYEZ PRODUCTIF ! 


SOIGNEZ VOTRE COMMUNICATION 


: GAGNEZ DU TEMPS... 
LL] 
ET DE L'ARGENT ! 





‘7 


‘Au service de ses lecteurs, L'Echo du PCW met ses compétences, son savoir-faire 
et son important fichier de fournisseurs au service des entreprises de toutes tailles. 


Entièrement gratuit, ce nouveau catalogue ‘‘entreprise‘* est remis à jour et envoyé 
régulièrement à toute entreprise ou profession libérale qui en fait la demande. 





PC/PCW la compatibilité est possible avec le service 
entreprise avec un nouveau service de transfert de fichiers 
soit : recopie de fichiers CP/M vers MS/DOS 

ou l'inverse (MS/DOS vers CP/M). 


Ce qui sort de votre entreprise est à son image alors soignez-la avec : 
Papier à en-tête personnalisée en continu 

Facture à en-tête personnalisée en continu 

et tout type de formulaires personnalisés en continu. 


Le service entreprise, c’est aussi une liste de prestataires 
compétents pour résoudre vos problèmes quotidiens comme : 
Programmes sur mesure (tous langages) 

Connexions difficiles 

Maintenance et formation 


© De nombreux revendeurs accordent des remises aux entreprises, 


collectivités et professions libérales. Le service entreprise vous en 
donne la liste actualisée. 


Mers ts téieotné tdi nr cas cles med Ghet ŒÉS ><- 


STE : FORME JURIDIQUE* : =" #%""* 7 CAPITAL": 








ADRESSE COMPLETE : 








NOM ET PRENOM DU RESPONSABLE ACHAT INFORMATIQUE :MR° : MME® : MELLE? 


ACTIVITÉ PRINCIPALE : 


NOMBRE DE PCW EN SERVICE DANS L'ENTREPRISE : 


* FACULTATIF - ° RAYEZ LA MENTION INUTILE 





SIC ou autre WALBASIC alors 


que le GSX est gracieusement 


fourni avec nos chers PCW. 


Voici donc un programme de tracé de fonctions Générer un basic GSX par GENGRAF BASIC 
avec leurs asymptotes qui intéressera sûrement [RETURN] sous CP/M. Cette opération se fait une 
les plus matheux d'entre vous. Celui-ci permet de fois pour toute. 

conserver des fonctions sur disquette par l'inter- 

médiaire de deux fichiers occupant environ 6K, et Effacer le fichier GENGRAF par 

de tracer les fonctions sur l'imprimante, directe- ERASE GENGRAF.COM [RETURN]. Puis créer 
ment au format A4. Il calcule automatiquement les un fichier PROFILE.SUB avec le programme 
ordonnées maximum et minimum suivant la fonc- RPED qui fonctionne sous BASIC MALLARD. 


tion ainsi que le repère à utiliser. 


INSTALLATION DE LA DISQUETTE 


Le fichier PROFILE.SUB doit contenir: 


TERRA  e 7 
pip m:=a:assign.sys 
Fichiers à copier des disquettes systèmes fournies Pip m:=a:gsx.sys Ù 
avec l'ordinateur: l  pip m:=a:*.prl ! 
1  setkeys touches.dif i 
! . « ! 
1 basic fonction l 
L À 


Créer ensuite un fichier TOUCHES.DIF avec 
RPED qui doit contenir: 


E#81 "GOTO 830“m" 
02 N S nAï#g1'" 


Ensuite, il faut taper le programme et le sauver 
(attention, le programme fonctionne avec le disque 
M, si vous stoppez le programme sans passer par 
la commande ‘Fin', taper : OPTION FILES "A" 
[RETURN] avant toute opération sur le disque A). 
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1 

! 

! 

! 

! £ : 

| Le programme commence par faire la liste des 
! fichiers présents sur les disques A et M puis 

! affiche le menu : 
















A)PIP DISa 
CRAN 9 PER SNS ef 3 
MISES 1 Option ‘FIN' : Quitte le programme, remet le I 
COPYING - : disque À comme disque par défaut | 
RTE Dr \ et quitte la station graphique GSX. ! 
x: =CUPMIT COM | Option 'DESTRUCTION' : Permet de détruire une fonction  ! 
x: =PIP CON : présente sur le disque. | 
#A: =5ETRENS CON | Option 'CHANG DISQUE' : Permet de changer de disquette. ! 
MAX DISQUETTE VIERGE | | Option ‘TRACE FONCTION" : Pour tracer une fonction. É 
COPYING - FONCRON BR SN J 
joe 
SUB ET CM DESTRUCTION 
STD. COM ; . 

Sélectionnez le disque sur lequel vous voulez 
DES Hi " détruire un fichier en pressant A ou M. 


ERASE M:%,% (Y/N)9 Y 
CP/M 3 PIP VERSION 3,0 
4M:=X,59S 


Donnez le nom, sans attribut, de la fonction à 
détruire. Ces derniers sont automatiquement gérés 
par le programme (Le nom du fichier ne doit pas 
dépasser 8 lettres). 


DISQUETTE SYSTEME face 2 


DISQUETTE SYSTEME 
face 4 


RÉSIQ SNS Valider la destruction en pressant O (il est possible 
GSX.SYS de quitter le mode DESTRUCTION en ne donnant 
2x PRL aucun nom de fichier) 

COPYING - 

RES te TRACE FONCTION 
DESCREEN. PRL 

ETES Sélectionner le disque sur lequel la fonction devra 


DISQUETTE FONCTION 
être sauvée en pressant A ou M. 


QUE sys Donner le nom de la fonction à tracer (sans attri- 


cX but). 
DE Si la fonction n'existe pas, le programme propose 
DDSCREEN. PRL de modifier les lignes 830 et 840 où est définie la 


GENGRAF CO 
RDCENCRAF BASIC 


GENGRAF 1.0 15 ie 8e Serial No 5000-1232-654321 
Copyright (C) 1982 


fonction. 


Ensuite, le programme demande sur quel interval- 
le il doit tracer la fonction. Puis les valeurs pour 


Digital Research, Inc. A11 Rights Reserved lesquelles la fonction n'est pas définie. 
| Ex: Si la fonction tracée est 1/X, la valeur ZERO 
A)BASIC n'a pas d'image car la division par ZERO est 


GSX-80 1,1 01 Oct 83 Serial No 5060-1230-654321 
Cour iqhé (C} 1983 . 
Digital Research, Inc, IL Rights Reserved 


impossible. 

Puis le programme demande les valeurs limites de 
l'axe des ordonnées. En effet, lorsque l'on trace 
une fonction comme 1/X, les valeurs des images 
des points proches de ZERO sont très grandes, 
ainsi, l'intervalle des ordonnées est trop important 
et le tracé de la fonction n'a aucun intérêt, il est 
donc possible de limiter l'importance de l'axe (3 et 
-3 par se 


Mallard-80 BASIC with Jetsan 
(c) Copyright 1984 Loconotive So 
All rights reserved 


17855 free hytes 


LE 
= 
£ 


e 
Ê 


LA CREATION DE LA DISQUETTE FONCTION 


pm nee nee me mn mo oo 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 
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L'entrée de ces différents paramètres est suivie 
par le calcul des ordonnées. 

Si la fonction possède des asymptotes, le pro- 
gramme demande leurs équations (Elles sont tra- 
cées en lignes discontinues). 


ÿ=C0S(X) 


ECHELLE ABSCISSES = 1 ECHELLE ORDONNEES = 1 


NB : Siil y a une asymptote horizontale en +0», il 
ne peut y avoir d'asymtote oblique sur cet interval- 
le, de même si il y a une asymptote horizontale en 
-00 


Si la fonction existe, le programme donne son 
intervalle de représentation et vous propose de le 
modifier. 


Il faut ensuite introduire le périphérique sur lequel 
vous désirez représenter la fonction (Ecran ou 
Imprimante). 


Attention, le programme trace à partir de la 
marque 1 sur la barre presse papier et non au 
bord comme pour une copie d'écran. 

Après le tracé de la fonction, le programme retour- 
ne au menu principal lorsque l'on appuie sur une 
touche. 





Le programme FONCTION.BAS se trouve sur 
la disquette ECHO N°21. 


f dt \. 
ki ) 












PROGRAMMATION BASIC 


10 REM **XRRRRRKRRRRRRARERRRERRKX 


20 REM *** TRACE DE FONCTION *** 

30 REM *** + ASYMPTOTES kit 

40 REM *** PAR G. SCULLARD  *** 

50 REM RRRRARRRRRRRRRRAREARRRRKKRÉ 

60 OPTION FILES "M" 

70 DEFINT c,e,g,1l,1i,),k 

80 DIM VER(10),VI(10) 

90 ML-32767:REM Valeur limite sous GSX 

100 AD=31753:REM Limite de l'axe droite 

110 AG-1032:REM Limite de l'axe gauche 

120 AH=31477:REM Limite de l'axe en haut 

130 AB-1290:REM Limite de l'axe en bas 

140 MD=31090:REM Limite des marques droite 

150 MG=-1677:REM Limite des marques gauche 

160 MH=30832:REM Limite des marques en haut 

170"MB-1935:REM Limite des marques en bas 

180 FD=30445:REM Limite de le fonction droite 

190 FG-2322:REM Limite de la fonction gauche 

200 FH=30187:REM Limite de la fonction en haut 

210 FB=-3580:REM Limite de la fonction en bas 

220 DIM CONTROLE (5) , ENTPARAM (79) ,ENTCOORD (148), LECPARAM(79), 
LECCOORD (148) 

230 GSx=&H30 

240 RESTORE 250 

250 DATA 8HC5, &HD1, &H0E, 8473, &HC3, &H05, &H00 

260 FOR I=0 TO 6:READ V:POKE GSX+I,V:NEXT 

270 CLS$S=CHRS (27)+"E"+CHRS (27)+"H" 

280 PRINT CLS$;CHR$ (27) "2"CHRS (1) 

290 PRINT:PRINT:PRINT 

300 IF FINDS("A:*.FON")="" THEN 350 

310 PRINT " Fonctions sur le disque A" 

320 PRINT 

330 FILES "A:*.FON" 

340 PRINT 

350 IF FINDS("M:*.FON")="" THEN 390 

360 PRINT:PRINT “ Fonctions sur le disque M" 

370 PRINT 

380 FILES "M:*.FON" 

390 PRINT:PRINT:PRINT " 
- Autre disque - Fin" 
400 AS=UPPERS(INKEYS):IF A$="" THEN 400 

410 IF A$="A" THEN 570 

420 IF A$="T" THEN 600 

430 IF A$="D" THEN 460 

440 IF A$="F" THEN GOSUB 2130:OPTION FILES "A":PRINT CLS$; : 

END 

450 GOTO 400 

460 PRINT CLS$; :PRINT:PRINT:PRINT " 
lez-vous détruire une fonction À ou M" 
470 DRIVES="":WHILE DRIVES$="":DRIVES=UPPERS (INKEYS) : WEND 

480 IF DRIVESC"A" AND DRIVES©"M" THEN 470 

490 PRINT “ Drive ";DRIVES 

500 PRINT " Quelle fonction voulez-vous détruire <RETUR 
N> pour revenir au menu principal ":INPUT DETS$:IF LEN(DETS)> 
8 THEN 500 

510 IF DET$="" THEN GOTO 280 

520 IF FINDS(DRIVES+":"+DETS+".FON")="" THEN PRINT "Cette fo 

nction n'existe pas":GOTO 500 

530 PRINT "confirmez-vous la destruction O/N ?" 

540 A$="":WHILE A$="":A$=UPPERS (INKEYS) :WEND 

550 IF A$="O" THEN DETS=DRIVES+":"#DETS:KILL DETS+".FON":KIL 
L DETS+".VAL" 

560 GOTO 280 

570 PRINT CLS$:PRINT:PRINT:PRINT SPACES (12) "Changez de disqu 


Tracer une fonction - Destruction 


Sur quel disque vou 
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e puis pressez une touche" 

580 A$="":WHILE A$="":AS$=INKEYS : NEND 

590 GOTO 280 

600 PRINT CLS$; 

610 PRINT:PRINT:PRINT SPACES (22) "TRACE DE FONCTION" 

620 PRINT:PRINT:PRINT" Sur quel disque voulez-vous travaill 
er À ou M 2?" 

630 DRIVES="":WHILE DRIVES="":DRIVES=UPPERS (INKEY$) : END 

640 IF DRIVES<>"A" AND DRIVE$C"M" THEN 630 

650 PRINT:PRINT " Sur quelle fonction voulez-vous travaille 
Le" 

660 INPUT FONCTIONS:IF LEN(FONCTIONS$S)>8 THEN 650 

670 IF FINDS (DRIVE$+":"+FONCTIONS+".FON")="" THEN 770 

680 OPEN "I",2,DRIVES+": "#FONCTION$+".VAL":FOR I=1 TO 8:INPU 
T #2,2:NEXT 

690 INPUT #2,A: INPUT #2,B:CLOSE 2 

700 PRINT:PRINT “ L'intervalle de représentation de la fonc 
tion est :" 

710 PRINT " De ";A;" à ";B 

720 PRINT:PRINT "Voulez-vous le modifier ?" 

7130 A$="":WHILE A$="":AS$=UPPERS (INKEY$) : WEND 

740 IF A$="N" THEN 1750 

750 IF A$="O" THEN 820 

160 GOTO 730 

770 PRINT:PRINT " Cette fonction n'existe pas. Création O/N 
ju 

780 A$="":WHILE A$="":AS$=UPPERS (INKEYS) : WEND 

190 IF A$C>"O" THEN GOTO 280 

800 PRINT CLS$:PRINT " Introduire la fonction ligne 830 sous 
la forme DEF FNY(X)=fonction puis ligne 840 sous la forme F 
$="+CHR$ (34) +"Fonction"+CHR$ (34) :PRINT "Puis pressez Fl" 

810 LIST 820-830 

820 DEF FNY(X)=COS(X) 

830 F$="Y=COS(X)" 

840 OPEN "O", 1, DRIVES+": "#FONCTIONS+".FON" 

850 PRINT CLS$; 

860 PRINT CHR$ (27) ; "0"; 

870 INPUT “Abscisse minimum ";A:IF A>0 THEN PRINT CHR$(7);:G 
OTO 870 

880 INPUT "Abscisse maximum ";B:1F B<0 THEN PRINT CHRS(7);:G 
OTO 880 

890 PRINT “Y a-t'il des valeurs interdites O/N" 

900 A$="":HHILE A$="":AS$=UPPERS (INKEYS) : MEND 

910 IF A$="N" THEN 940 ELSE IF A$C>"O" THEN GOTO 900 

920 INPUT “Combien y en a-t'il ";VI:ERASE VI:DIM VI (VI) 

930 FOR 1=1 TO VI:PRINT “Valeur interdite n° ";1;" X="; : INPU 
T VI(I):NEXT I 

940 INPUT "Limite supérieure de l'axe des ordonnées (0 si au 
cune limite) ";LMAXI 

950 INPUT "Limite inférieure de l'axe des ordonnées (0 si au 
cune limite) "; LMINI 

960 PRINT “Calcul des ordonnées en cours ... Veuillez patien 
ter" 

970 H=(B-A) / (FD-FG) :MINI=0:MAXI=0 

980 FOR I=0 TO FD-FG STEP 100 

990 X=A+I*H 

1000 IF VI<>0 THEN FOR TEST=1 TO VI:IF X=VI(TEST) THEN Y-0:G 
OTO 1080:ELSE NEXT TEST 


1010 REM *#RKRRRRRRRRRERERRR ARE 


1020 Y=FNY(X) 

1030 REM *RAKRR RER RE RERRIRE RER 

1040 IF LMAXIC>0 THEN IF Y>LMAXI THEN Y=0:GOTO 1080 
1050 IF LMINIC0 THEN IF Y<LMINI THEN Y=0:GOTO 1080 
1060 IF Y<MINI THEN MINI=Y:GOTO 1080 

1070 IF Y>MAXI THEN MAXI=Y 





1080 PRINT #1,Y:NEXT I 

1090 CLOSE 1 

1100 TPO=0:REM test pour le tracé de l'asymptote oblique en + 
00 

1110 TNO=0:REM test pour le tracé de l'asymptote oblique en - 
00 

1120 THP=0:REM test pour le tracé de l'asymptote horizontale 
en +00 

1130 THN=0:REM test pour le tracé de l'asymptote horizontale 
en -00 

1140 VER=0:REM test pour le tracé des asymptotes verticales 
1150 PRINT "Y a-t'il des asymptotes à tracer (O/N) 2?" 

1160 A$="":WHILE A$="":AS$=UPPERS (INKEY$) :WEND 

1170 IF A$C>"O" AND A$SO"N" THEN PRINT CHR$(7);:GOTO 1160 
1180 IF UPPERS(A$)="N" THEN GOTO 1550 

1190 PRINT “Y a-t'il des asymptotes verticales (O0/N) 2" 

1200 A$="":WHILE A$="":A$=UPPERS (INKEY$) :WEND 

1210 IF A$C>"O" AND ASC"N" THEN PRINT CHR$ (7); :GOTO 1200 
1220 IF A$="N" THEN PRINT "NON":GOTO 1280 

1230 VER=1: INPUT "Nombre d'asymptotes verticales ";NV:ERASE 
VER:DIM VER (NV) 

1240 FOR I=1 TO NV 

1250 PRINT "Equation de l'asymptote verticale N°";1;": X="; 
:INPUT VER(I) 

1260 IF VER(I)<A OR VER(I)>B THEN PRINT CHR$ (7); :GOTO 1250 
1270 NEXT I 

1280 PRINT "Y a-t'il une asymptote horizontale en +00 ?" 
1290 A$="":WHILE A$="":AS$=UPPERS (INKEYS) :WEND 

1300 IF A$C>"O" AND A$C"N" THEN PRINT CHR$ (7); :GOTO 1290 
1310 IF A$="N" THEN PRINT "NON": THP=0:GOTO 1340 

1320 INPUT “Equation de l'asymptote horizontale en +00 : 

="; HP:THP=1 

1330 IF HP>MAXI OR HP<MINI THEN PRINT CHR$ (7); :GOTO 1320 
1340 PRINT "Y a-t'il une asymptote horizontale en -00 ?" 
1350 AS="":WHILE A$="":A$=UPPERS (INKEYS) :WEND 

1360 IF A$C>"O" AND AS$C"N" THEN PRINT CHR$(7); :GOTO 1350 
1370 IF A$="N" THEN PRINT "NON":THN-0:GOTO 1400 

1380 INPUT "Equation de l'asymptote horizontale en -oo Y=" 
; HN: TAN=1 

1390 IF HN<MINI OR HN>MAXI THEN PRINT CHR$(7);:GOTO 1380 
1400 IF THP=1 THEN GOTO 1480 

1410 PRINT "Y a-t'il une asymptote oblique en +00 ?" 

1420 A$="":WHILE A$="":A$=UPPERS (INKEYS$) :WEND 

1430 IF a$<>"O" AND a$©"N" THEN PRINT CHR$(7); :GOTO 1420 
1440 IF a$="N" THEN PRINT "NON":tpo=0:GOTO 1480 

1450 PRINT "L'equation de l'asymptote oblique en +00 et du t 
ype aXtb ":TPO=1 

1460 INPUT "Valeur de a:";AP 

1470 INPUT “Valeur de b:";BP 

1480 IF THN=1 THEN 1550 ELSE PRINT "Y a-t'il une asymptote o 
blique en -00 ?" 

1490 A$="":WHILE A$="":AS$=UPPERS (INKEYS) :WEND 

1500 IF A$C>"O" AND A$C"N" THEN PRINT CHR$(7);:GOTO 1490 
1510 IF A$="N" THEN PRINT "NON": TNO=0:GOTO 1550 

1520 PRINT "L'équation de l'asymptote oblique en -00 et de t 
ype aXtb ":TNO=1 

1530 INPUT “Valeur de a:";AN 

1540 INPUT “Valeur de b:";BN 

1550 OPEN "O",2,DRIVES+" : "#FONCTIONS+". VAL" 

1560 EX=(FD-FG) / (B-A) 

1570 EY=(FH-FB) / (MAXI-MINI 

1580 XO=FG+ABS (A) *EX:YO-FH-MAXI*EY 

1590 PRINT #2,F$ 

1600 PRINT #2,MINI 
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1610 PRINT #2,MAXI 

1620 PRINT #2,EX 

1630 PRINT #2,EY 

1640 PRINT #2,X0 

1650 PRINT #2,YO 

1660 PRINT #2,H 

1670 PRINT #2,A 

1680 PRINT #2,B 

1690 PRINT #2,TPO:IF TPO=1 THEN PRINT #2,AP:PRINT #2,BP 
1700 PRINT #2,TNO:IF TNO=1 THEN PRINT #2,AN:PRINT #2,BN 
1710 PRINT #2,THP:IF THP=1 THEN PRINT #2,HP 

1720 PRINT #2,THN:IF THN=1 THEN PRINT #2,HN 

1730 PRINT #2,VER:IF VER=1 THEN PRINT #2,NV:FOR I=1 TO NV:PR 
INT #2,VER(I) :NEXT 

1740 CLOSE 2 

1750 OPEN "I",2,DRIVES+" : "HFONCTIONS+". VAL" 

1760 INPUT #2,F$ 

1770 INPUT #2,MINI 

1780 INPUT #2, MAXI 

1790 INPUT #2,EX 

1800 INPUT #2,EY 

1810 INPUT #2,X0 

1820 INPUT #2,YO 

1830 INPUT #2,H 

1840 INPUT #2,A 

1850 INPUT #2,B 

1860 INPUT #2,TPO:IF TPO=1 THEN INPUT #2,AP:INPUT #2,BP 
1870 INPUT #2,TNO:IF TNO=1 THEN INPUT #2,AN:INPUT #2,BN 
1880 INPUT #2,THP:IF THP=1 THEN INPUT #2,HP 

1890 INPUT #2,THN:IF THN=1 THEN INPUT #2,HN 

1900 INPUT #2,VER:IF VER=1 THEN INPUT #2,NV:ERASE VER:DIM VE 
R(NV) :FOR I=1 TO NV:INPUT #2, VER(I):NEXT I 

1910 CLOSE 2 

1920 PRINT CLS$; 

1930 REM INSTALLATION DE GSX 

1940 PRINT “ Sur quel périphérique voulez-vous tracer la fo 
nction" 

1950 PRINT " 1-Ecran" 

1960 PRINT "21-Imprimante (haute résolution)" 

1970 PRINT "22-Imprimante (basse résolution)" 

1980 INPUT "Votre choix ";PERIPH 

1990 IF PERIPH<>1 AND PERIPH<>21 AND PERIPH<>22 THEN 1980 
2000 ENTPARAM(0)=PERIPH 

2010 RESTORE 2020 

2020 DATA 1,1,1,1,1,1,0,2,1 

2030 FOR I=1 TO 9 : READ ENTPARAM(I) :NEXT 

2040 CONTROLE (0)=1: CONTROLE (3)=10:GOSUB 2080 

2050 GOSUB 2150 

2060 GOTO 2460 

2070 REM PROCEDURE D'APPEL DE GSX 

2080 CALL GSX(GSX,GSX, CONTROLE (0) ,ENTPARAM (0) ,ENTCOORD (0), LE 
CPARAM (0), LECCOORD (0) ) 

2090 RETURN 

2100 GOTO 2460 

2110 REM 

2120 REM FIN DE SESSION 

2130 CONTROLE (0}=2: CONTROLE (3)=0 :GOSUB 2080 

2140 RETURN 

2150 REM VIDE LE TAMPON DE L'IMPRIMANTE 

2160 CONTROLE (0)=4: CONTROLE (3)=0:GOSUB 2080 

2170 RETURN 

2180 REM AFFICHE UN TEXTE 

2190 FOR I=0 TO LEN(MESSAGES)-1 

2200 ENTPARAM(I)=ASC(MIDS (MESSAGES, 1+1,1)) 

2210 NEXT I 


1E 
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2220 CONTROLE (0)=8 : CONTROLE (1) =1 : CONTROLE (5) =1 

2230 CONTROLE (3)=LEN (MESSAGES) 

2240 GOSUB 2080 

2250 RETURN 

2260 REM TAILLE DU TEXTE SUR L'IMPRIMANTE 

2270 ENTCOORD (0 )=0 : CONTROLE (0) =12 : CONTROLE (1)=0 : CONTROLE (3)= 
0 

2280 GOSUB 2080 

2290 RETURN 

2300 REM STYLE DES LIGNES 

2310 CONTROLE (0)=15 : CONTROLE (1}=0 : CONTROLE (3)=0 

2320 GOSUB 2080 

2330 RETURN 

2340 REM COULEUR DES LIGNES 

2350 CONTROLE (0)=17 : CONTROLE (1)=0 : CONTROLE (3)=1 

2360 GOSUB 2080 

2370 RETURN 

2380 REM FORME DU MARQUEUR 

2390 CONTROLE (0)=18 : CONTROLE (1}=0 : CONTROLE (3)=0 

2400 GOSUB 2080 

2410 RETURN 

2420 REM TRACER UNE LIGNE 

2430 CONTROLE (0)=6 : CONTROLE (1) =2 : CONTROLE (3) =0 : CONTROLE (5)=1 
2440 GOSUB 2080 

2450 RETURN 

2460 REM 

2470 ENTPARAM(0)=1:GOSUB 2340:REM LIGNE VISIBLE 

2480 ENTPARAM(0)=1:GOSUB 2380:REM POINTS 

2490 ENTPARAM(0)=1:GOSUB 2300:REM LIGNE CONTINUE 

2500 ENTPARAM(1)=12:GOSUB 2260:REM TAILLE DU TEXTE 

2510 PRINT CLS$; 

2520 PRINT CHR$S (27) ; "0"; 

2530 PRINT CLS$; 

2540 REM TRACE DES AXES 

2550 ENTCOORD (0 )=AD :ENTCOORD (1)=INT (YO+0. 5) :ENTCOORD (2)=AG:E 
NTCOORD (3)=ENTCOORD (1) :GOSUB 2420 

2560 ENTCOORD (0)=INT (X0+0. 5) :ENTCOORD (1) =AH: ENTCOORD (2)=ENTC 
OORD (0) :ENTCOORD (3)=AB:GOSUB 2420 

2570 REM TRACE DES MARQUES 

2580 IF ABS(A)>ABS(B) THEN DX=-1 ELSE DX=1 

2590 TEST=0 

2600 Z=X0 

2610 Z=Z+EX4DX 

2620 IF ABS(A)>ABS(B) THEN 2660 

2630 IF Z>MD AND TEST=0 THEN DX=DX/2:GOTO 2600 

2640 TEST=TEST+L:IF Z<=MD THEN 2610 

2650 GOTO 2680 

2660 IF Z<MG AND TEST=0 THEN DX=DX/2:GOTO 2600 

2670 TEST=TEST+1:IF Z>=MG THEN 2610 

2680 IF TEST>10 THEN DX=DX*2:GOTO 2590 

2690 Z=X0 

2100 IF DX<0 THEN DX=-DX 

2710 Z=Z+EX*DX 

2720 IF Z<=MD THEN ENTCOORD(0)=INT(Z+0.5) :ENTCOORD(1)=INT (YO 
+129) :ENTCOORD (2)=INT (Z+0.5) :ENTCOORD (3)=INT (YO-129) :GOSUB 2 
420 :GOTO 2710 

2730 Z=X0 

2740 2=2-EX*DX 

2150 IF Z>=MG THEN ENTCOORD(0)=INT(Z+0.5) :ENTCOORD (1)=INT (YO 
4129) :ENTCOORD (2)=INT (Z+0.5) :ENTCOORD (3)=INT (YO-129) :GOSUB 2 
420:GO0T0 2740 

2760 IF ABS(MINI)<ABS (MAXI) THEN DY=1 ELSE DY=-1 

2770 TEST=0 

2180 Z=Y0 

2790 Z=Z+EY*DY 
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2800 IF ABS(MINI)>ABS(MAXI) THEN 2840 

2810 IF ZMH AND TEST-0 THEN DY-DY/2:GOTO 2780 

2820 TEST-TESTH1:IF Z<=MH THEN 2790 

2830 GOTO 2860 

2840 IF Z<MB AND TEST-0 THEN DY=DY/2:GOT0 2780 

2850 TEST-TEST+1:IF Z>-MB THEN 2790 

2860 IF TEST>10 THEN DY=DY*2:GOTO 2770 

2870 Z=Y0 

2880 IF DY<Q THEN DY=-DY 

2890 Z=2+EY4DY 

2900 IF Z<=MH THEN ENTCOORD (0)=INT (X0+46) :ENTCOORD (1)=INT (Z+ 
0.5) :ENTCOORD (2)=INT (XO-46) :ENTCOORD (3)=INT (240.5) :GOSUB 242 
0:GOTO 2890 

2910 Z=Y0 

2920 Z=Z-EY*DY 

2930 IF Z>=MB THEN ENTCOORD (0)=INT (X0+46) :ENTCOORD (1)=INT (Z+ 
0.5) :ENTCOORD (2) =INT (X0-46) :ENTCOORD (3)=INT (240.5) :GOSUB 242 
0:GOTO 2920 

2940 REM TRACE DE LA FONCTION 

2950 OPEN "I", 1,DRIVES+" :"#PONCTIONS+".FON" 

2960 FOR VA-0 TO FD-FG STEP 100 

2970 INPUT #1,V 

2980 X=XOHEX* (AHVAXH) 

2990 Y=YO+EY*V 

3000 ENTCOORD (0)=INT (x+0. 5) :ENTCOORD (1}=INT (y+0. 5) :ENTCOORD ( 
2)=ENTCOORD (0) : ENTCOORD (3) =ENTCOORD (1) :GOSUB 2420 

3010 NEXT VA 

3020 CLOSE 1 

3030 REM TRACE DES ASYMPTOTES 

3040 ENTPARAM(0)=2:GOSUB 2300 

3050 REM ASYMPTOTES VERTICALES 

3060 IF VERO1 THEN 3120 

3070 FOR VA=1 TO NV:IF VER(VA)-0 THEN GOTO 3100 

3080 X=XO+EX*VER (VA) 

3090 ENTCOORD (0)=INT (X+0. 5) :ENTCOORD (1}=AB:ENTCOORD (2)=INT (X 
40.5) :ENTCOORD (3)=AH:GOSUB 2420 

3100 NEXT VA 

3110 REM ASYMPTOTE HORIZONTALE EN +00 

3120 IF THPO1 OR HP=0 THEN 3160 

3130 Y=YOHEY*HP 

3140 ENTCOORD (0)=INT (XO+0. 5) :ENTCOORD (1) =INT (Y+0. 5) : ENTCOORD 
(2)=AD:ENTCOORD (3)=INT(Y+0.5) :GOSUB 2420 

3150 REM ASYMPTOTE HORIZONTALE EN -00 

3160 IF THN©1 OR HN-0 THEN 3200 

3170 Y=YOHEY*HN 

3180 REM ASYMPTOTE OBLIQUE EN +00 

3190 ENTCOORD (0)=INT (X0+0. 5) :ENTCOORD (1) =INT (Y+0. 5) :ENTCOORD 
(2)=AG:ENTCOORD (3)=INT (Y+0.5) :GOSUB 2420 

3200 IF TPO=0 THEN 3360 

3210 VA=-A/H 

3220 X=XOHEX* (A4VA*H) 

3230 Y=YOHEY* (AP* (AHVA*H) BP) 

3240 IF VAAD THEN 3360 

3250 IF Y<AB OR Y>AH THEN VA=VA+100:GOTO 3220 

3260 IF XCAG OR X>AD THEN VA=VA+100:GOTO 3220 

3270 ENTCOORD (0)=INT (X+0. 5) :ENTCOORD (1)=INT (Y+0.5) 

3280 VA=AD 

3290 X=XOHEX* (A+VA*H) 

3300 Y=YO+EY* (AP* (AHVA*H) #BP) 

3310 IF VACXO THEN 3360 

3320 IF Y<AB OR Y>AH THEN VA=VA-100:GOT0 3290 

3330 IF XCAG OR X>AD THEN VA=VA-100:GOTO 3290 

3340 ENTCOORD (2)=INT (X+0.5) :ENTCOORD (3)=INT(Y+0.5) :GOSUB 242 
0 

3350 REM ASYMPTOTE OBLIQUE EN -00 
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3360 IF TNOC1 THEN 3510 

3370 VA=-A/H 

3380 X=XO+EX* (A+VA*H) 

3390 Y=YO+EY* (AN* (A+VA*H) +BN) 

3400 IF VA>XO THEN 3510 

3410 IF Y<AB OR Y>AH THEN VA=VA-100:GOTO 3380 

3420 IF X<AG OR X>AD THEN VA=VA-100:GOTO 3380 

3430 ENTCOORD (0)=INT (X+0.5) : ENTCOORD (1)=INT(Y+0.5) 

3440 VA=AG 

3450 X=XO+EX* (A+VA*H) 

3460 Y=YO+EY* (AN* (A+VA*H) +BN) 

3470 IF VA>XO THEN 3510 

3480 IF Y<AB OR Y>AH THEN VA=VA+100:GOTO 3450 

3490 IF X<AG OR X>AD THEN VA=VA+100:GOTO 3450 

3500 ENTCOORD (2)=INT(X+0.5) : ENTCOORD (3)=INT(Y+0.5) :GOSUB 242 
() 

3510 REM AFFICHAGE DU NOM DE LA FONCTION 

3520 ENTCOORD (0)=0:ENTCOORD (1)=31734:MESSAGES=FS :GOSUB 2180 
3530 REM AFFICHAGE DES ECHELLES 

3540 X$=STRS (DX) :Y$=STRS (DY) 

3550 X=INSTR(XS,".") 

3560 X$S=LEFTS(XS$,X) +MIDS (X$,X+1, 3) 

3570 Y=INSTR(Y$,".") 

3580 MESSAGES="ECHELLE ABSCISSES ="+X$+" ECHELLE ORDONNEES 
="4y$ 

3590 ENTCOORD (0)=0:ENTCOORD (1)=0:GOSUB 2180 

3600 IF PERIPHC1 THEN PRINT CLS$:PRINT “  Pressez une touc 
he " 

3610 A$="":WHILE A$="":A$=INKEYS :WEND 

3620 PRINT CLS$; 

3630 GOSUB 2130 

3640 GOTO 280 


N (Bon de un — en pages 


centrales, feuille®iétachable) 
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VIDEO SHOP. 50 rue Richelieu 75001 PARIS 


Tél. : 42 96 93 95 - Métro : Palais Royal 
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VIDEO SHOP. 251 boulevard Raspail 75014 PARIS 
Tél. : 43 21 54 45 Métro : Raspail 


L'ESPACE LE PLUS MICRO DE PARIS ! 


MATERIEL 


Une demi-journée de formation gratuite ! !! 


- Formation assurée 

- Maintenance assurée 

- Crédit et facilités de paiement 
- Un CLUB (-10%) 


PERIPHERIQUES 


- Interface manettes 

- Extension 256 Ko 

- Lecteur FD2 

- Digitaliseur VIDEO 

- Emulateur MINITEL-MYNEA 
- Serveur MINITEL-SYNEA 

- Souris PCW 

- RS 232 C 


ACCESSOIRES 


- Housses protection (les 3) 

- Prolongateur imprimante 

- Disquettes CF2 (les 10) 

- Disquettes CF2 DD (les 10) 

- Ruban imprimante 

- Ruban imprimante PCW 8256 et 9512 
- Marguerites pour PCW 9512 


UTILITAIRES 


- ASTRO 1 

- ASTRO 2 

- ASTRO 3 

SOUS 2101010) 

- HERAKLIOS 

- WALL STREET (BOURSE) 
- COMPTABILITÉ ALIENOR 
- FACTURATION STOCK 
- PAIE LOGICYS 

- MULTIPLAN 

- DBASE Il 

- POCKET BASE 

- POCKET CALC 

- QUICK MAILING 

- AZERTY 
no] 17 ele" 

- ROTATE 

- EXBASIC 

- OPTICAISSE 

- PCW GRAPH 

- DATAMAT PCW 


450 
950 
990 
850 
eis10) 
pA‘Le) 
055 
750 
LEO) 
490 
A0) 
(p10) 
490 
490 
290 
290 
So) 
250 
990 
395 
590 


LANGAGES 


- TURBO PASCAL 

- TURBO TUTOR 

- TURBO PASCAL GRAPHICS 

- TOOL BOX 

- AUTOFORMATION ASSEMBLEUR 
- LANGAGE C (en anglais) 


740 
390 
940 
740 
PRE 
790 





LOGI'STICK Publicité (1) 48 65 44 55 


ents, un fichà 
# Comptabife 


JEUX 


- BATMAN 

- BOB WINNER 

- ORPHEE 

- STRICKE FORCE HARRIER 
- TOP SECRET 

- TRIVIAL PURSUIT 

- TOMAHAWK 

- 3D CLOCK CHESS 

- MATCH DAY Il 

- GUILD OF THIEVES 

- THE PAWN 

- TETRIS 

- BRIDGE PLAYER 2000 


- Bien débuter avec PCW 
- Grand livre du PCW 
- Gestion sur PCW 
- MULTIPLAN Entreprise 
- DBASE Il Application 
MO 'E\INRE 
- DTP-PAO 
Me A1 


- GRAPHIC MAGIC 
- LOCOSCRIPT 2 


LIVRAISON 
- Matériel par SERNAM Express : 48 h (Port 100F) 
- Logiciels par Postes Express : 48h (Port 15F) 


PRIX au 01.07.1988 susceptibles de modification, sous réserve des stocks disponibles. 


BON DE COMMANDE à adresser à VIDEOSHOP, Dept VPC - B.P. 105 - 75749 PARIS Cedex 15 


NOM 

PRENOM 
ADRESSE 
VILLE 

CODE POSTAL 








Je règle par Désignation des 
[] C. Bancaire articles 
E CCP demandés .................. 





DEMANDE DE DOCUMENTATION 
Je possède un micro de type 





Je joins 3 timbres à 2,20 F pour frais d'envoi 





Frais de port : Matériel 100 F. Logiciels 15 F 


TOTAL TTC 


ps 






65533 INPUT 
65534 

65534 POKE 
65533-65534 


Amis lecteurs bonjour, 


Nouveau venu de l'équipe, on m'offre le courrier... Tâche 
difficile car les trois caisses, remplies à bloc, remises en 
gage de bienvenue sont truffées de questions insolites, 
d'espoirs fous, d'attentes raisonnables, de messages, de 
réprimandes, de bravos, d'encore et de j'en passe... 

Seul, face à ma conscience, je n'ai qu'un seul recours: 
Tri, retri et décision: Le courrier doit être furieusement 
tronçonné. Les expériences aussi passionnantes 
qu'utiles occupent une place trop importante quand je 
considère le nombre de questions restées encore sans 
réponse... Donc, je prends les choses en main! Il faut que 
le courrier des lecteurs devienne la mine des bons 
tuyaux. Vous pouvez compter sur moi, comme j'espère 
pouvoir compter sur les plus calés d'entre vous pour 
trouver des solutions aux problèmes les plus tordus. 


Votre dévoué, Albert DUROUX. 


FREDERIC ABIGNOLI 


Informaticien depuis mon plus jeune âge et donc 
étourdi, comme beaucoup dans ce métier, il m'est arrivé 
de perdre quelques programmes, voire quelques dis- 
quettes à force de bidouiller. Que voulez-vous, c'est plus 
fort que moi ! Peut-être vous est-il arrivé de perdre 
quelques programmes BASIC parce qui vous les aviez 
sauvés avec l'infâme option ",P" qui ne permet plus de 
modifications par la suite. 

Mes enfants, je viens de découvrir la formule toute nou- 
velle. Chargez votre BASIC MALLARD favori, puis 
tapez les deux lignes suivantes : 


“nom du fichier à récupérer : ", nom$:CHAIN MERGE nom, 


6H707F,0:6H73BA, &HD5:POKE 6H73BB, &H57:POKE &H73BC,O:DELETE 





PEAR RER NT RE 


Faites ensuite SAVE"RECUP" 


A chaque fois que vous voudrez récupérer un de vos 
fabuleux programmes, vous ferez RUN"RECUP et à la 
question posée, vous mettrez le nom du programme à 
récupérer et dans le lecteur la disquette du programme 
en question. Simple non ? Quel plaisir de faire LIST et 
de voir son ancien programme. Vous n'avez plus qu'à 
faire SAVE"nom de votre programme" et le tour est 
joué. 


L'ECHO 


On recense une dizaine de méthodes pour arriver à un tel 

résultat et je vais en profiter pour vous donner la mienne: 

Lancez le basic et tapez la ligne 65534 REM que vous sauvez 
ar: 

SAVE "M:TOTO" <RETURN> puis chargez le programme 

protégé par erreur et mergez TOTO par 

MERGE "M:TOTO" <RETURN et... listez. 

Je rappelle aux lecteurs que ces trucs vous sont donnés pour 





avec l'extension P et que leur at avec des logiciels du 
commerce ne doit en aucun cas contrevenir à la législation en 
vigueur concernant le respect des droits d'auteurs. 


PIERRE MARTEL 


En utilisant le système de gestion de base de données 
POCKET BASE de MICROPRO sur un PCW 8512, je 
me suis rapidement heurté à un mur: dès que le fichier 
de données approche des 16 Ko sur le drive, apparait un 
superbe message indiquant que le répertoire du lecteur 
est plein alors que la disquette est vierge ! Je n'ai trouvé 
aucun moyen de déplacer la barre des 16 Ko par fichier 
de données, la maintenance du fichiers ou la fusion de 
deux fichiers n'apportant rien de plus... Voyez-vous une 
solution à ces problèmes de taille et est-il exact que l'on 
peut rencontrer le même problème avec MULTIPLAN ? 


L'ECHO 


Votre histoire n'est pas exemplaire parce qu'il est arrivé exac- 
tement la même chose à, devinez qui, L'ECHO ! 

Après avoir passé deux semaines à contruire l'application 
(surtout à comprendre les 700 pages des manuels!), le sta- 
giaire informaticien de l'époque commença la saisie des abon- 
nées et au cent quarantième le fichier planta. Vérification, 
recherche et re-saisie, dix jours passèrent. Idem! En déses- 
poire de cause, l'infortuné se décide à appeler MICROPRO 
pour avouer courageusement son incompétence.. "Pas du 
tout, monsieur, POCKET BASE ne gère pas plus de 16 
Ko!!!" lui répond une charmante technicienne... Ahuri, il 
demande explication: "Vous savez, c'est un vieux program- 
me adapté au circonstance...". Interloqué, il insiste: 
"Comment est-il possible que vous commercialisiez une 
base de données avec un manuel de 700 pages, au prix 
d'un DBASEII, un produit sur lequel je viens de passer 
deux semaines alors qu'il n'est pas capable de gérer plus 
de 16 Ko et que cela n'est dit absolument nul part ???". 
"C'est comme ça et j'en suis désolée..." 

Voilà ce qu'il reste de l'histoire qui ne dit pas si le stagiaire a 
pu résister à un tel choc. Toujours est-il que votre problème 
est sans issue à moins de faire ce que l'ECHO à fait en 
confiant plutôt ces fichiers à DBASEII... 

Pour MULTIPLAN, ce même problème est de notoriété 
publique mais une fonction de liaison de feuilles permet de 
l'atténuer et de développer des applications de taille supérieu- 
re à 16 Ko. 
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%* NONITEUR DE DISQUETTE UV 1.2 #% Par Vincent LEDOS - (c) LOGI'STICK 87 #* # 





GINO QUERIN 


Voici une astuce qui va faire plaisir aux lecteurs utilisa- 
teurs de BATMAN et qui permet d'avoir des vies infi- 
nies.. Pour cela il faut faire: 


Utilisez le moniteur de disque (donné dans l'ECHO 11) 
puis allez en piste 5 secteur 7 page 1 et remplacez le pre- 
mier octet de la ligne 100. Cet octet est initialement à 01, 
il faut le mettre à 00 puis : "Ecrire le bloc". 


CU ED 
PACE] 


ÉTal did 
ODA OLED OS 
PTS SREIESEEEES 
HSTROTSSSSPESEISE 
ARSLRRSBEESÉPPRES 

RS > De ES CO 
FRCRPSRESESRSSLSCES 
HaSAESes ESS R2Ter 
SERSRSESAsoCr SES 
SISRSSREISTEUREE 
LÉRERSICSOCSERTSES 
SRSETEESSETLIRESE 


FU 6 EU 00 
SGRFÉSINCRRSEERTE 


ED 
SEBMSRSEESBEARELE 


BEJSISSLESSTEELEE 


PSRRPSPTISPRSEEESS 
ESS ss nnEemoœus 
SSISSSSISERSESES 
260 60 F0 60)! 


CORRECTIONS: UTILISER LES CURSEURS, <TAB) = AUTRE ZONE, 


L'ECHO 


Voila le style d'astuce que nous aimons toujours. Pourriez- 
vous nous trouver la même sur BOB WINNER parce que là, 
je pédale sèrieusement ! 


PHOTOS RIBARDIERE 


Je demande s'il vous est possible de me fournir le pro- 
gramme en DBASE ii d'étiquettes imprimables par 2 de 
front. Le programme pour 1 étiquette marche bien, mais 
je n'arrive pas à faire tourner celui pour 2 étiquettes. 


L'ECHO 


Il suffisait de le demander... Dans l'encadré figure une 
commande qui effectue ce travail avec style et méthode. 
Le SKIP de la 19 ème ligne est à supprimer si vous sou- 
haitez obtenir deux fois la même adresse. Notez que j'ai 
eu recours a CHR(9) (qui est le code de la tabulation) 


pour le positionnement des étiquettes placées en deuxiè- 


me position. 


* ETIQUETTE EN DEUX DE FRONT 
* (c) ALBERT D. 1992 

* Pour l'Ecole du PCW 
*k 


USE CLIENTS 

SET TALK OFF 

SET PRINT ON 

? CHR(27)+CHR(67) +CHR(0)+CHR (27) +CHR (99) 
DO WHILE .NOT. EOF 

STORE NOM TO NOMA 

STORE ADRESSE1 TO ADRESSI1A 

STORE ADRESSE2 TO ADRESS2A 

STORE CODE TO CODEA 


Avance auto 
Recherches 


rs 


(EXIT) POUR QUITTER 








mm. .û| 


STORE VILLE TO VILLEA 

STORE PAYS TO PAYSA 

* SKIP EST OPTIONNEL S'ENLEVE SI 
* LES ADRESSES SONT SIMILAIRES 
* SUR LES 2 ETIQUETTES 

SKIP 

* VOUS AVEZ LE CHOIX 

* 

STORE NOM TO NOMB 

STORE ADRESSE1 TO ADRESS1B 
STORE ADRESSE2 TO ADRESS2B 
STORE CODE TO CODEB 

STORE VILLE TO VILLEB 

STORE PAYS TO PAYSB 


QU 


9 9 


NOMA+CHR (9) +NOMB 
ADRESS1A+CHR (9) +ADRESS1B 
ADRESS2A+CHR (9) +ADRESS2B 


D 


CODEA+VILLEA+CHR (9) +CHR (9) +CODEB+VILLEB 


Ù 


PAYSA+CHR (9) +CHR (9) +CHR (9) +PAYSB 


Ù 


SKIP 
ENDDO 
SET PRINT OFF 
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GACD CONNAY 


96000 NICE 


H- ENGLAND 


<= 


JEAN-FRANCOIS KELLER 


Etant l'heureux possesseur d'un PCW 9512 depuis 
quelques mois, je serais vivement intéressé par l'acquisi- 
tion de quelques disquettes thématiques de L'ECHO. 
Auparavant, je voudrais être certain de leur totale com- 
patibilité avec le 9512 (peut-être même existe-t'il une 
version spécifique sur disquette 720K ?). 

A propos de disquettes, mon revendeur m'affirme que 
désormais, les disquettes CF2 peuvent remplacer les 
CF2DD. Est-ce bien exact ? 


L'ECHO 


L'utilisation des disquettes thématiques sur 9512 ne pose 
aucun problème connu (à moins que les utilisateurs n'en 
aient et gardent le secret?). Quand au remplacement des 
CF2DD par des CF2, votre revendeur a parfaitement raison 
et ce, à double titre : parce que, d'abord, cela à toujours très 
bien fonctionné et parce qu'ensuite, les CF2DD sont deve- 
nues introuvables. 


GERALD VIOT 


Constatant que vous avez d'excellentes sources, j'aime- 
rais que vous me conseilliez un ou deux ouvrages 
(accessibles et bon marché, si possible) me permettant de 
piloter le port de sortie et de connaître le mapping du 
PCW. 


A. QUINCHON 


vous serait-il possible de nous dire qu'il existe un ouvra- 
ge traitant de l'accès aux fichiers en assembleur sur 
AMSTRAD PCW 8512 ? 

En effet, suite à l'utilisation du logiciel d'Auto-formation 
à l'Assembleur (de MICRO APPLICATION), on s'aper- 
çoit que ce sujet n'est pas évoqué. 


L'ECHO 
Sans hésiter l'ombre d'une seconde : 


CLEF POUR AMSTRAD TOME 2 chez PSI, l'UNIVERS 
DU PCW chez SORACOM et CP/M approfondi chez 
SYBEX. C'est ce que l'on a fait de mieux sur les entrailles du 
PCW et répondre ainsi à vos diverses demandes. 


M. LE PALLEC 


Primo : Vous m'avez signalé qu'en RFA, il existe un 
disque dur de 20 méga pour le PCW. J'ai entendu dire 
qu'en Angleterre, il existe un disque dur plus perfor- 
mant que l'on peut installer à la place du deuxième lec- 
teur. Est-ce exact ? Si oui, est-il vraiment intéressant, 
existe-t'il sur le marché français, bref, à quelle adresse 
puis-je écrire. 


Secundo : L'achat d'un deuxième PCW entrant dans mes 
intentions, mais désirant les relier ensemble, le cordon 
série null modem PCW-PCW me permet-il vraiment de 





transmettre d'un PCW à l'autre. Autrement dit, si ma 
secrétaire entre des données sur le PCW qui est dans 
mon bureau professionnel, ces données entreront-elles 
directement sur le PCW qui est dans mon bureau privé à 
l'autre extrémité de la maison (25 mètres). Si oui, faut-il 
deux cordons qui se branchent sur le secteur ou un seul 
de 25 mètres ? 


L'ECHO 


Mauvaise nouvelle pour la reine, le seul disque dur commer- 
cialisé en France (par MERCI) vient d'être arrêté par le 
constructeur ASD. Joint par téléphone, il s'est expliqué en 
avouant que sa production revenait trop cher. Pour ce qui 
concerne le disque allemand, nous restons sans nouvelle. Pas 
de distributeur en France et aucune réponse à nos courriers. 
Il ne reste qu'à souhaiter qu'un génial petit français en 
fabrique un. Qu'il soit assuré, d'avance, de notre soutient le 
plus total! 

Quand à ce problème de connexion, il faudrait vous mettre en 
rapport avec un constructeur de cables pour étudiez le type 
de connexion à effectuer sur une telle distance. En effet, le 
niveau de sortie d'une RS-232 devrait le permettre mais il 
reste d'autres problèmes à régler (interférences, impédance du 
câble, etc..). Voici l'adresse d'un spécialiste : 


INMAC 218 RUE DE LA PERDRIX BP 50057 
95947 ROISSY CH.DE GAULLE CEDEX 
TEL (1) 49.39.49.39 


Le dernier point concerne l'aspect logiciel de votre démarche. 
Il faudra envisager de procéder à une réaffectation des péri- 
phériques logiques/physiques afin de pouvoir piloter l'une des 
machine à partir à partir de l'autre et vice versa. Cette opéra- 
tion est rendue possible à l'aide de DEVICE.COM comme l'a 
déjà expliqué Marc HERMION dans l'ECHO N 10 

(cf "Nous avons les moyens"). 


MICHEL PINATEL 


Je voudrais vous signaler un petit truc que j'ai découvert 
il y a peu de temps : 

Sous CP/M, le fait d'appuyer sur la touche <f7> pro- 
voque l'impression de tout ce qui apparait à l'écran. 
Pour retourner à l'état initial, il faut de nouveau appuyer 
sur cette touche. Cette particularité est très pratique 
pour lister des DUMP en pleine page (par exemple). 


J'ai reçu le catalogue de LOGI'STICK Edition et j'aime- 
rais vous poser une question : dans le paragraphe 
"COMMENT COLLABORER AVEC LOGI'STICK" 
vous faites état des garanties que doit prendre un auteur 
pour protéger sa création. Pouvez-vous me renseigner 
sur les différentes procédures qui existent. 


L'ECHO 


Merci pour ce truc qui vous vaut trois adresses utiles à vos 
prochaines démarches juridiques … 


La première n'est autre que celle d'un huissier qui pourra 
dresser un constat de ce que vous lui présenterez, 

soit : listings, copies d'écran, mode d'emploi ainsi que 
tout éléments que vous êtes seul à juger utiles. 


DR COURRIER - L'ECHO DU PCW N° 21 





Cette méthode est peu coûteuse et peut servir à prouver une 
éventuelle antèriorité du logiciel en cas de copie ou simple- 
ment d'imitation. 

La seconde est celle de l'INPI auprès de laquelle vous pour- 
rez breveter le logiciel. Encore faut-il que ce dernier présente 
de véritables originalités. Vous pourrez aussi y faire déposer 
le nom du programme ainsi que le logo sous lequel vous allez 
le commercialiser. 

Enfin, dernière adresse, celle de l'Agence pour la 
Protection des Programmes où l'on pourra enregistrer 
votre dépot du programme et vous défendre en cas d'abus 
venant de tiers. 


APP 119 rue des Flandres 75019 Paris. Tel (1) 40.35.03.03 
INPI : 26 Bis rue de Leningrad 75008 Paris. 
Tel (1) 42.94.52.52 


THIERRY RAMBOUR 


En ce qui concerne le CLUB ECHO DU PCW, étant mili- 
taire (appelé), aurais-je droit au tarif 290 F ? 


L'ECHO 


Après demande au service concerné, j'ai l'immense plaisir de 
vous dire... ouil 

NB : N'oubliez pas de justifier de votre appel sous les dra- 
peaux lors de votre inscription. 


ANTOINE PITTELOUP 


Je suis en possession depuis peu d'un AMSTRAD PCW 
8256 qui fait mon bonheur et la joie de mes enfants qui, 
pour l'instant, se contentent de jouer. 

Mon fils vient d'acquérir le ju BATMAN d'OCEAN. 
Malheureusement, il est incapable de dépasser la 26ème 
chambre de ce logiciel passionnant. 


L'ECHO 


Soit vous mettez en oeuvre le truc infernal donné plus haut, 
soit vous lancez un appel public à l'attention de ceux qui ont 
atteint la 27 ème. 


DENIS SCHAEDGEN 


Je profite de mon courrier pour vous présenter le problè- 
me que je rencontre : lorsque j'insère une disquette que 
j'ai recopiée, l'écran m'indique le message suivant : 
"ERREUR EN CHARGEMENT SCRIPT-JOY fichier 
inexistant". 

Comment peut-on corriger cette erreur afin de pouvoir 
lire directement la disquette ? 


L'ECHO 


SCRIPT.JOY constitue l'une des parties les plus impor- 
tantes au bon fonctionnement de LOCOSCRIPT. Il se char- 
ge après lancement du système ]J21FLOCO.EMS et sa pré- 
sence est indispensable. Le problème est que ce fichier est 
caché et que la recopie de la disquette ne peut se faire sans 


l'aide de DISCKIT, seul capable de recopier intégralement la 
totalité de la disquette. 


JEAN-MICHEL REBOUL 


Dans le N° 10 de l'ECHO, un programme appelé 
OTHELLO permet entre autre, d'afficher l'heure sous 
BASIC par l'intermédiaire de DATE.COM. 

La saisie de la date et de l'heure doivent donc se faire 
sous CP/M avant le lancement du programme. 
QUESTIONS : 

1) Peut-on afficher aussi la date sous BASIC pour éviter 
une seconde saisie ? 

2) Pourrait-on saisir la date et l'heure directement sous 
BASIC pour éviter les erreurs de saisie et le message 
d'erreur de DATE quand on se trompe de mois ou de / 
ou de : ?7? 


L'ECHO 


C'est tout à fait possible et MARC HERMION nous en a 
donné les moyens dans son article "Les entrailles du 
PCW"' de l'ECHO 17. En effet, DATE et HEURE sont stoc- 
kées en BCD aux adresses 64500 à 64504. Il suffit donc de 
“poker” de nouvelles valeurs en basic pour modifier l'heure 
ou la date comme la exploité partiellement VINCENT 
LEDOS dans "CARTE BLANCHE" de l'ECHO N°14. 


D. DELACHAUSSEE 


Je suis en possession de votre logiciel EXPERT et je n'ar- 
rive pas à le faire tourner. Je voudrais prévoir les risques 
de maladies sur les céréales : 

1) risque septo atteind : si température T entre 15 et 
10°C et si hygrométrie H>90. 

2) risque rouille brune atteint : si température T entre 15 
et 25°C. 

3) risque Piétain atteind : si température T entre 7 et 
15°C et si hygrométrie H>90. 

4) risque Helmintho atteind :si température T entre 12 et 
24°C et si hygrométrie H>90. 

Pourriez-vous m'expliquer la marche à suivre. je vous en 
remercie... 


L'ECHO 


La toute dernière version du système expert sous DBASE se 
trouve sur la disquette Thématique PDB 1 et c'est avec son 
secours que je m'en vais VOUS  F—— 








dépanner... Règles : température T entre 15 et 10°C 
D'abord entrer les règles ci- hygrométrie H>90 

contre : conclusion: risque septo atteint 

Ensuite, lorsque vous rentrerez | Règle: Température T entre 15 et 25°C 
he fai Loan _ { Condusion: risque rouille brune atteint 

ter la même formulation que les etc. 

règles (au caractère près) et RE 


vous pourrez lancer la déduction … Point remarquable, les 
déductions deviennent à leur tour des faits, ce qui augmente 
considérablement la puissance du système. Enfin, dernier tuyau, 
vous pouvez aussi coder vos règles et vos faits pour éviter toute 
erreur de frappe (exemple: La règle "Température T entre 15 et 
25°C" pourrait être la règle 25 BIS, etc..). 


COURRIER * L'ECHO DU PCW N° 21 Les DORE 


ss 


ss 





La façon de: saisir un programme Basic a fait l'objet d'une 
étude approfondie dans l'ECHO du PCW N°1 dans “Un 
départ saisissant" qui reste complémentaire au livre 2 livré 
avec les PCW. 

Résumé : 

Allumez l'ordinateur et insérez la face 2 de la disquette 
système. A l'affichage de “A>" tapez BASIC suivi d'une 
pression sur [RETURN]. Une fois sous Basic, lancez la 
numérotation automatique par AUTO+[RETURNI. 


A chaque numéro de ligne affiché, tapez son contenu 
conformément au listing de l'article. 


Pour sortir du mode AUTO afin de corriger une ou plusieurs 
lignes, tapez [STOP]. 

Pour corriger une ligne, tapez EDIT suivi de son numéro et 
d'une pression sur [RETURN]. 

Exemple : EDIT 10 [RETURN] 

Pour lister sans corriger, taper LIST [RETURN] 

Exemple : LIST 10 [RETURN] ou LIST -100 [RETURN] ou 


LIST 1 10-1 400 [RETURN] o ou u LIST IRETURN] 


Faites des sauvegardes régulières du programme, même en 
cours de saisie, en mettant une disquette vierge en À et en 
tapant : SAVE "Nom du programme" [RETURN]. 

Exemple : SAVE "ECHO" [RETURN]. 


CONSEILS : Ne lancez jamais un programme avant d'en avoir 
fait une sauvegarde. Utilisez les mêmes noms que ceux conseillés 
par l'auteur (dans son article ou sur la disquette qui l'accompagne). 
Vérifiez ligne par ligne que ce que vous avez tapé est strictement 
identique à ce qu'indique le listing. Soyez particulièrement 
vigilant dans les cas suivants : Ne confondez pas : point virgule 
et deux points,point et virgule, | majuscule et i minuscule ou le 
chiffre 1. 

Respectez : les espaces, les guillemets, les REM et les numéros de 
lignes. Ne modifiez pas un programme avant d'être certain qu'il 
fonctionne totalement. Les erreurs se produisent rarement dans la 
ligne responsable de ceux-ci. Seule SYNTAX ERROR ou erreur de 
syntaxe dans la saisie, arrive dans une ligne mal écrite. C'est pour 
cette raison que le BASIC MALLARD l'édite automatiquement. 
Dans tous les cas, reportez-vous à l'annexe Il du manuel Amstrad. 





TARIF ANNONCE : 








numéro [LH ÏLLLILIALILILEL) signature obigatore 
(celle des tuteurs 


daie de validité 


NOUVEAU : LA RUBRIQUE CONTACT POUR RENCONTRER LES PCWISTES 


DE VOTRE REGION ! 


- Pour garantir le sérieux des annonces, L'ECHO DU PCW demande 50 F par 


passage. 


- Les rubriques disponibles sont : VENTE, ACHAT, CONTACT, OFFRE DE SERVICE, 
DEMANDE D'EMPLOI, OFFRE D'EMPLOI, CLUB et DIVERS. 
- Les annonces de DEMANDE D'EMPLOI sont At 





LIGNE SUPPLEMENTAIRE 
TOTAL A REGLER 50 F +. 


© A VENDRE PCW 8256 512 K 


imprim + livres + interface DK 
TRONIC + souris AMX + scanner 
+ DTP PAO + PCW PAINT + DBASE 
+ COBOL + 3D CHESS + 
TOMAHAWKS + ECHO DU PCW 
avec reliures + 30 disquettes 
diverses. valeur > 12000 vendu 
6000. M. René MABILLARD 

Tél : 50 59 62 68 


© VENDS 1 logiciel original 

ASTRO 2 prix : 600 F. valeur 950 F 
Envoi en recommandé contre 

chèque à Michel BOYER, 3 rue 

des Graves 

01000 BOURG EN BRESSE 


© VENDS LOGICIEL MOP - MBP 
avec son livre, prix : 600 F ou 
échange contre LOCOSCRIPT 2 
+ LOCOMAIL avec sa documen 
tation. 

Tél : 47 35 51 80 ( après 18h30 ) 
Melle DUBESSET 


© CAUSE DOUBLE EMPLOI, 
VENDS CANON X-07 avec 64 
KO + imprimante quatre 
couleurs + logiciel astrologique 
CERES 2000 - valeur 10,000 
sacrifié 2000 F - Tél : 47 22 54 90 


© Homaeen et one 
cien de formation (12 et 20 ans 
d'expérience). Ancien agent de 
maîtrise. Habitude du contact 
avec les clients. Cherche place 
Vendeur - Conseiller ou 
électromécanicien d'entretien. 
Régions APT, MARSEILLE, VITROLLES. 
Mr LAURENT J.Paul rue de la Poste 
04110 CERESTE. 





Cr] STOP aux textes mal traités 
une vraie professionnelle à 
votre porte. RAPPORTS, THESES, 


AMM sur PC+laser. 
urgent ? J'arrive … 
Tél : (1) 48 67 30 88 


C'est 


DEMANDE D'EMPLOI : GRATUITE 
AUTRE ANNONCE 


© ) REALISE Deronnicienion de 
votre papier à lettre, en-têtes 
avec sigles, dessins et tous 
graphismes à la demande. 


Super précision PIXEL 
imprimante double densité sur 
logiciel hors pair unique et 
personnel, configuré PCW. 
Ecrire à : Mme SKIERLAK 

620 rue du Chanoine MARTEL 
62460 OURTON Tél : 21 41 56 20 


FORFAITAIRE : 50 F TTC (dont TVA 18,6%=7,84 F) 
Ligne supplémentaire : 10 F TTC (dont TVA 18,6%=1,57 F) 
Ce bon de commande tient lieu de facture. Gardez-en un double pour votre 


comptabilité. La rédaction se réserve le droit de refuser toute annonce sans 


TEXTE DE L'ANNONCE 


REGLEMENT A L'ORDRE DE LOG/'STICK PAR : 
Ü] cheque Ül ccp Ü MANDAT Ü] VisA/c8 * 


. X 10 F par ligne supplémentaire 


pour les lecteurs mineurs) 





avoir à le justifier. Les annonces non accompagnées du règlement seront 
LS la menton utile retournées à leurs expéditeurs. 
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J 


conduise 


V CC CZ 


PARTAGER NOTRE SOIF DE QUALITÉ 
EN DÉCOUVRANT NOTRE CATALOGUE 
DE MATÉRIELS EF DE LOGICIELS 


\\ 


RSS 


A 
1 
4 


PCW : Bib/6312/861) 








DUPLICATION ET DIFFUSION INFORMATIQUES 


Centre d'Affaires PARIS NORD “Le Bonaparte” Boîte 37 - 93153 LE BLANC MESNIL CEDEX 
TEL. (1) 48 67 28 44+ 


VENTE EXCLUSIVE AUX REVENDEURS CONQUERANTS 








